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Introducere 


Prelucrarea informaţiei necesită de cele mai multe ori un volum foarte 
mare de calcule şi uneori aplicarea unor formule inaccesibile programelor de 
calcul tabelar. Apar de asemenea probleme foarte greu de rezolvat atunci 
când se impune preluarea şi interpretarea datelor dintr-o grilă bi sau 
tridimensională. În aceste cazuri se impune de la sine folosirea bazelor de 
date. 

Conceput pentru prelucrarea datelor dintr-o bază de date, Microsoft 
Access 97 aduce îmbunătăţiri substanţiale versiunilor mai vechi de Access 
(1.x, 2.0, 7.0/95, sau 8.0/97) solicitând în acelaşi timp destul de puţine 
resurse din parte maşinii pe care lucrează. 


Resursele solicitate de Microsoft Access 97: 

Procesor 486 sau mai mare. 

Sistem de operare Windows 95 sau versiuni superioare. 

Minim 8 Mb memorie RAM (funcționează şi cu 4Mb). 

Monitor VGA — 256 culori (minim) 

60-167 Mb liberi pe hard disk 

În condiţiile unei nevoi tot mai acute de programe, Access 97, prin 
facilitățile pe care le pune la dispoziţia utilizatorului şi programatorului şi 
prin simplitatea înțelegerii, constituie mediul de programare ideal pentru 
crearea propriului software. 

Cartea de fata vă oferă soluții pentru înţelegerea realizării şi 
funcționării bazelor de date, ajutându-vă să construiți propria aplicaţie şi 
propria bază de date. Exemplul folosit în această carte permite realizarea 
unei aplicații pentru centralizarea situației şcolare a elevilor din rețeaua 
Ministerului Educaţiei Naţionale. 
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Chiar dacă nu s-a insistat asupra elementelor de programare în cod 


VBA, asistenții Wizard incorporati oferă suficiente posibilităţi pentru 
crearea unei aplicaţii şi a unei baze de date puternice şi performante. 


Microsoft Access 97 


Access 97 ca parte integrantă a pachetului Microsoft Office 97 
Professional Edition vine în completarea facilitatilor oferite de lucrul cu 
foile de calcul tabelar, asigurând stocarea şi prelucrarea unui volum foarte 
mare de date şi în acelaşi timp conlucrarea cu celelalte programe incluse în 
acest pachet, dar şi colaborarea cu alte tipuri de baze de date folosite în 
prezent (Fox Pro, Dbase, Paradox, etc.). 

Avantajele folosirii bazelor de date Access 97 , prin comparaţie cu 
foile de calcul tabelar constau în: 

1. Implementarea sistemului de relaţii. 
Organizarea datelor . 
Restructurarea datelor în tabele relationate. 
Folosirea eficientă a memoriei. 
Asigurarea consecventei în folosirea denumirilor. 
Posibilitatea memorării oricărui tip de informaţie. 
Folosirea mai eficientă a memoriei. 
Navigare în rețeaua Internet şi Intranet. 


San ay Sei fe 


Colaborarea cu alte aplicaţii. 
Folosirea elementelor de personalizare a aplicaţiilor. 


Pe 
O 


Folosirea filtrelor. 


ȘI 


Programarea în Visual Basic. 
13. Securitatea şi administrarea bazelor de date. 
Acest program vă va permite, după ce veţi ajunge să stapaniti tehnicile 
de bază ale prelucrării datelor, să construiți şi să distribuiți propriile 
aplicații. 
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Meniul File (Fişiere) 


Li New Database. Ctr+N 
ta Open Database. Cla 
Get External Data 


2 TT 


Close Ei Link Tables... 
Save. Ctrl+S New Database... — permite 
Save As/Export.. crearea unei noi baze de date. 
Save As HTML 4 Open Database... - permite 
Page Setup... deschiderea unei baze de date. 
[& Print Preview Get External Data cu articolele 
& Print... AS de meniu Import şi Links permite: 
Ev | Import: Copierea datelor dintr-un 
e Database Properties fişier text sau dintr-un tabel al unei alte 
1 db1 baze de date într-un tabel al bazei de 
2db2 date curente. 
A Links: Crează o legătură, în baza 
— SS d d de date curentă, la un tabel al unei alte 


baze de date. 

Close — Închide fereastra curentă. Dacă ati efectuat modificări într- 
unul din obiectele bazei de date şi nu l-aţi salvat încă, Access 97, vă va 
propune efectuarea salvării acestuia. 

Save — permite salvarea aspectului unui tabel, formular, raport sau a 
unei interogări, sau a aspectului sau conținutului unui modul. 

Save As/Export 

- Creează (prin salvare) o copie cu nume diferit a obiectului selectat în 
baza de date curentă. 
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- Exportă rezultatul prelucrării obiectului selectat într-un fişier extern 
(în format .txt sau .rtf) sau într-o bază de date externă (Microsoft Access sau 
Paradox). 

- Converteste macro-ul selectat intr-un nou modul Visual Basic. 

Save As HTML — permite exportul obiectului selectat sau al 
conţinutului acestuia într-un format specific paginilor Web (.html, .idc/.htx 
şi .asp). | 

Page Setup — permite controlul caracteristicilor paginii (margini, 
dimensiuni, orientare) unui formular sau raport. 

Print Preview - afişează obiectul activ sau selectat (tabel, interogare, 
formular, raport) în forma în care acesta va fi afişat la tipărire. 

Print — Tipăreşte un tabel, formular, raport, modul sau o interogare. 
Afişează dialogul Print permiţând modificarea proprietăţilor şi setărilor 
imprimantei. 

Send — Trimite prin intermediul programului de poştă electronică, 
rezultatele prelucrate într-unul din formatele: HTML, MS-DOS text, RTF, 
sau Excel. 

Database Properties — Afişează proprietăţile bazei de date astfel încât 
să poată fi modificate de utilizator. 

Exit — Închide aplicaţia Access şi baza de date curentă. 


Meniul Edit (Editare) 


Undo - Creează o comandă cu efect contrar 


ultimei acţiuni a utlizatorului. Numele acestei 


& Cut Ciri+X 
Ba Copy Cirl+C 
E Paste Ctrl+V 


Create Shortcut... ` 
Delete Del 
Rename 


comenzi depinde de numele actiuni intreprinse de 
utilizator (Exemplu: Undo Cut, Undo Move, etc.). 
Dacă ultima acțiune întreprinsă de utlizator nu 
permite creearea unei acțiuni cu efect contrar, 
numele acestei comenzi apare în meniul edit sub 


denumirea Can't Undo. 
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Cut - Şterge obiectul selectat şi îl plasează in clipboard astfel încât sa 
poată fi inserat în altă parte. Acțiunea inversă acestei comenzi este comanda 
Undo Cut. 

Copy - Copiază obiectul selectat in clipboard (Exemplu: o înregistrare 
sau un control) astfel încât acesta să poată fi introdus în altă parte. Acțiunea 
inversă acestei comenzi este comanda Undo Copy. 

Paste - Introduce un obiect capturat în clipboard în baza de date 
curentă (O înregistrare sau un control). Acţiunea inversă acestei comenzi 
este Undo Paste. 

Create Shortcut - Permite crearea unei scurtături către un obiect din 
baza de date. 

Delete - Şterge definitiv obiectul selectat fără a-l plasa în clipboard. În 
fereastra “Relationship” (Relaţii), ştergerea unei linii de relaționare 
echivalează cu ştergerea relației dintre două tabele. 

Rename - Redenumeste obiectul selectat din baza de date. Acțiunea 
inversă acestei comenzi este Undo Rename. 


Meniul View (Vizualizare) 


Database Objects - Tables Afişează în 
fereastra bazei de date lista tabelelor din 
baza de date curentă. 

Database Objects - Queries Afişează 
lista interogarilor din baza de date curentă. 

Large Icons Afişează obiectele bazei 
de date folosind iconiţe mari înaintea 


numelui acestora. 


SE pt 
Small Icons Afişează obiectele bazei de date folosind iconiţe mici 
înaintea numelui acestora. 
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Line Up Icons Aranjeaza intr-o retea ortogonal obiectele din fereastra 
bazei de date. 

Properties Afişează proprietățile obiectului selectat, iar in situaţia in 
care nici un obiect ne este selectat, proprietățile bazei de date . 

Code Afişează codul sursă care lucrează în spatele formularului sau 
raportului selectat. 

Toolbars - Bare de instrumente - Afişează sau ascunde bare de 
instrumente. Pentru a afişa o bară de instrumente, selectaţi caseta de 
selectare de lângă numele acesteia. Pentru a ascunde o bară de instrumente, 
deselectati caseta de selectare. 

Toolbars — Customize - Particularizare Particularizează butoanele 
barei de instrumente, comenzile meniurilor şi atribuirile tastelor de comenzi 
rapide. 


Meniul Insert (Inserare) 


Table Permite crearea unui tabel nou cu 


babe č | ajutorul uneia din următoarele opțiuni: Table 


` i Query Wizard, Datasheet view, Design view, sau 
RESCH Import/Link Table. 
e EN Query Creează o nouă interogare cu ajutorul 
4¢ Module asistentului Wizard sau prin intermediul 
ai. Class Module modului proiectare — Design view. 


Fe A Form Permite crearea unui forumular nou cu 
A Auto orm 


E AutoReport ajutorul asistentilor Wizard sau direct prin 


intermediul modului proiectare Design View. 
Report Permite crearea unui raport nou în cadrul bazei de date cu 
ajutorul asistentilor Wizard sau direct prin intermediul modului de 
proiectare Design View. 
Macro Permite crearea unui nou macro.. 
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Module Permite crearea unui modul nou şi afişarea secțiunii de 
declaraţii a acestuia într-o fereastră de modul. 

Class Module Inserează o clasă de module care nu este asociată cu un 
formular sau raport al bazei de date, deschizând secțiunea de declaraţii a 
acesteia într-o fereastră de modul. 

AutoForm Permite crearea automată a unui formular pornind de la 
tabelul sau interogarea selectată. 

AutoReport Permite crearea automată a unui raport pornind de la 
tabelul sau interogarea selectată. 

Procedure Apare în mod automat atunci când este deschisă o 
fereastră de modul şi permite inserarea unei proceduri la poziţia curentă a 
cursorului. 

Date/Time Permite inserarea unei casete de text care va conţine o 
formulă pentru afişarea datei şi orei curente în paginile formularului sau 
raportului selectat. 


Meniul Tools (Unelte) 


v Spelling. . Fi Spelling Apeleaza corectorul gramatical 
poe tan (al limbii engleze) pentru verificarea din punct 
REES EE de verificare gramatical al conţinutului înscris 

e3 Relationshipă..... ` E x 
` Anayze +@ în tabelele bazei de date sau în casetele de text 

| Database Utilities | D ale unui formular. 
„Security: Lë AutoCorrect  Personalizează setările 
ears at "RB corectorului gramatical pentru verificarea 
iartup.. Së E GE ; 

textului introdus de utilizator, modificând lista 


Macra > 


ep ActiveX Controls. cuvintelor acestuia. 


Add-Ins b 
Ee 


OfficeLinks > permite exportul 
rezultatelor prelucrate de un formular sau 
raport al bazei de date în diferite formate 
recunoscute de aplicația Access. 
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> Merge It with MS Word 
Lansează aplicaţia Microsoft Word ZS Merge ltwith MS Word 
oh E Publish it with MS Wore: 

Mail Merge Wizard, permiţând astfel $s Analyze it with MS Excel 
exportul datelor într-un fişier .doc. 

> Publish It with MS Word Creează un fişier .rtf pornind de la un 
obiect selectat (Exemplu: tabel, raport). 

> Analyze It with MS Excel Creează un fişier .xls pornind de la 
obiectul selectat. Implicit numele fişierului .xls este numele obiectului sursă. 

Relationships Afişează fereastra de relații astfel încât puteți creea, 
modifica sau edita relațiile dintre tabelele sau interogările bazei de date. 


Analyze P 

> Table Lansează asistentul Table Analyzer Wizard, care permite 
fragmentarea tabelelor bazei de date în mai multe tabele (relationate) cu o 
structură simplă pentru mărirea eficacitatii şi vitezei de prelucrare a datelor. 

> Performance Lansează asistentul Performance Analyzer care 
analizează performanţele bazei de date şi obiectelor incluse în aceasta. 

> Documenter Creează un raport asupra modului de funcționare şi 
proprietăţilor obiectelor bazei de date. 


Database Utilities > ‘Give Database, - 


| 
> Convert Database Converteşte o bază Fareed Database | 
Repair Database, | 


de date dintr-o versiune mai veche în versiunea ___ e 
SS Make MDE File... 


Microsoft Access 8.0. 

> Compact Database Rearanjează într-un sistem continuu diferitele 
componente ale bazei de date, permiţând astfel o mai rapidă accesare a 
datelor şi o îmbunătățire a performanţelor bazei de date. 

> Repair Database Reface greşelile care ar putea apare în structura 
de relaţii a bazei de date printr-o eventuală întrerupere forțată a alimentării 
unității sau printr-o funcționare defectuoasă a diferitelor componente 
hardware. 


PREZENTAREA MENIURILOR 15 


> Make MDE File Creează o bază de date compactată, compilată şi 
fără cod VBA pe care utilizatorul ar putea să-l modifice voit sau din 
greşeală. 


Security > 

> Set Database Password 

Permite modificarea parolei specifice 
unei baze de date. Numai utilizatorii cu 
drepturi de administrare a bazei de date şi cei 
care cunosc parola anterioară pot solicita 
modificarea parolei. 

> User And Group Permissions Permite modificarea utilizatorilor şi 
grupurilor de lucru precum şi a drepturilor de acces ale acestora la diferitele 
obiecte ale bazei de date. 

> User And Group Accounts Permite afişarea, tipărirea, adăugarea, 
ştergerea sau modificarea utilizatorilor sau grupurilor de lucru. De asemenea 
permite modificarea parolei administratorului implicit Admin. 

> User-Level Security Wizard Lansează în execuţia asistentul Level 
Security Wizard cu ajutorul căruia poate fi creată o bază de date securizată 
împotriva utilizatorilor neautorizati. 

> Encrypt/Decrypt Database Cripteaza sau decriptează baza de date. 
Criptarea face ca procesele de la nivelul bazei de date să se desfăşoare mai 
lent, însă în acest fel diferitele utilitare pentru editare nu vor avea putea 
interpreta nici măcar partial informaţiile conţinute într-o astfel de bază de 
date. 


Replication > 

> Synchronize Now Sincronizeaza conţinutul a două baze de date. 

> Create Replica Creează o copie replică a bazei de date curente. 
Copia poate fi creată şi prin “agatarea şi aruncarea “ bazei de date curente în 
utilitarul My Briefcase de pe desktop. 

> Resolve Conflicts Lanseaza în execuţie asistentul Conflict Resolver 
care permite identificarea si eliminarea conflictelor care ar fi putut apare in 
urma unor sincronizari anterioare. 
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> Startup Permite personalizarea proprietăţilor de start-up ale bazei 
de date (formularul care va fi deschis în mod automat la lansarea în 
execuţie, iconitele, titlul aplicaţiei) 


Macro P 
> Run Macro Lansează în execuţie un i ere Gen, pe HES 
macro selectat. KAUA, mM ao a: 


> Convert Form's/Report's Macros To Create Toobar from 


Visual Basic  Converteşte un macro în 
instrucțiuni VBA. 

> Create Menu from Macro Creează o bară de meniu pornind de la 
un macro selectat. 

p Create Toolbar from Macro Creează o bară de unelte pornind de 
la un macro selectat. 

> Create Shortcut Menu from Macro Creează un meniu scurtătură 
dintr-un macro selectat. 

> ActiveX Controls Permite înregistrarea sau neanregistrarea 
controalelor ActiveX in baza de date curenta. 


Meniul Windows 


Cascade  Aranjează ferestrele MDI copil deschise, în cascadă, 
asemănător cărţilor de joc dintr-un pachet. 

Tile Aranjează ferestrele MDI copil deschise, astfel încât să fie vizibile 
simultan şi să aibă aceeaşi mărime. 


Meniul Help (Ajutor) 


Contents Afişează o listă a subiectelor de asistenţă soft disponibile. 
Microsoft on the Web Vă puteți conecta la locații Microsoft Web direct 
din Access utilizând comanda Microsoft pe Web (Microsoft on the Web) 
din meniul Ajutor (Help). 


Capitolul 7 
NOTIUNI GENERALE 


1.1. Lansarea în execuție 


Pasul 1: Executati click cu mouse-ul pe Start-Programs-Microsoft Access 


1. În cazul în care meniul dumneavoastră de Start are o altă 
configuraţie decât cel din figura alăturată, deşi dumneavoastră ati instalat 
corect aplicaţia Access 97, nu disperaţi. Căutaţi pe hard disk fişierul 
MSACCESS.EXE ” şi lansati-l în execuție. 

Pasul 1: incercati să creați o 
scurtătură către fişierul 


d WinRAR 

LI New Office Document 

T Dpen Office Document ` 
Noton Systemw/orks vi E 5 a 

a Kë RT del "Sen a acesteia următoarea secvenţă: 

Hie ÎS MS-DOS Prompt E | f 
Murie ` Euras Contenda C:\Program Files\Microsoft 
[d A windows Explorer | Office\Office\MSACCESS.EXE " 


/User DSC după care lansati-o în 


“Msaccess.exe” şi introduceți în 
linia de comandă (câmpul Target) 


execuție. 

Pasul 2: În caseta de dialog care 
apare sunteți invitat să precizati 
uaa geg numele sau tipul bazei de date pe 
ister | îm care doriţi să o deschideţi sau să o 
creați. 
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2. Mierozah eco 


Microsoft Access cae ii 
Create a New Database Using = = 


A | & Blank Database ` 


Si f Database Wizard 


Mare Files... 
D:\LucrariiPronosport Pronosport 
D:\Carti\Acces\I5J-Dalj-Date 
C:\My Documerts\Cortabilitate}... 
Access97\Adrese 


„Gestiune 


| 


Puteţi astfel să optati fie pentru crearea unei baze de date noi 
(executând un click pe una din opţiunile notate cu 2 — pentru crearea unei 
baze de date fără înregistrări — sau 3 — pentru a activa asistentul Wizard ce 
vă va ajuta să creați o bază de date de un anumit tip), fie pentru deschiderea 
unei baze de date (4). Caseta de dialog afişează calea şi numele ultimelor 
patru baze de date deschise de utilizator (6). În cazul în care baza de date pe 
care doriți s-o deschideţi nu se află în această listă programul vă oferă 
opțiunea “More Files ...” (5). Precizarea acţiunii dorite (creare de baze de 
date noi sau deschiderea unei baze de date existente) se face prin marcarea 
(prin executarea unui click pe numele opțiunii) acelei opțiuni şi executarea 
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unui click pe butonul “OK” (sau pe butonul “Cancel” pentru a renunța la 
ajutorul oferit de această casetă de dialog. 

În figura de mai sus s-a optat pentru deschiderea unei alte baze de 
date. De menţionat că bara de meniu (1) nu poate fi apelată atâta timp cât 


caseta de dialog este vizibilă. 


| 'Ofie(s)found. ` 


Pasul 3: În caseta de dialog care apare sunteţi invitat să precizati numele sau 
tipul bazei de date pe care doriți să o deschideţi cu ajutorul 
următoarelor controale: 

1. Lista derulantă “File Name:” - Numele bazei de date. Introduceţi 

numele bazei de date pe care doriți să o găsiți. 

2. Lista derulantă “Files of Type:” - Tipul fişierului bază de date. 

4. Lista derulantă “Look in:” - Afişează fişierele sau folderele din unitatea 
sau folderul selectat în caseta Caută în: 

Faceţi click pe unitatea sau folderul ce conține fişierul dorit. Conţinutul 
unității sau al folderului selectat de dvs. va apare dedesubt în lista cu 
foldere (3.) împreună cu fişierele corespunzătoare tipului selectat de 
dumneavoastră. 

5. Butonul “Up One Level” - Deschide folderul care este imediat superior 


ca nivel celui curent. 
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6. Lista derulantă “Last modified” - Vă permite căutarea definirea 
perioadei de timp în care fişierele căutate au fost modificate ultima oară. 

7. Lista derulanta “Text or Property” - Vă permite să precizati textul pe 
care doriți să-l găsiți. Pentru a găsi expresii, puneţi textul între ghilimele 
(" "). De exemplu, pentru a găsi numai fişierele care contin expresia dans 
modern, tastati "dans modern". 

8. Butonul “Find Now”- Afişează fişierele care întrunesc criteriile de 
Căutare precizate de dvs. în stânga. Pe parcursul căutării, numele 
butonului se schimbă in Stop. Pentru a abandona căutarea, faceţi clic pe 
butonul Stop. 

9. Caseta “Exclusive”- Validati (prin bifare!) această casetă dacă doriţi ca 
baza de date să nu mai poată fi deschisă de alți utilizatori pe perioada în 
care lucraţi dumneavoastră. 

10. Butonul “Open”- Aplică şi salvează orice modificare făcută de dvs. şi 
închide această casetă de dialog. 


1.2. Fereastra Database 


În Access 97 veţi lucra în special cu această fereastră, care vă va ajuta 
să selectați, creați sau să modificaţi obiectele necesare funcționării unei baze 
de date. Această fereastră acceptă şase tipuri de obiecte: 


emeng 


ii 1SJ-Dolj-Date : Datahase SE 


a 


El Tebes | GI Queries |. E roms | E Reports | 2 maces | a rie | 
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Tables — Tabele . Sunt “foile de calcul tabelar” ale unei baze de 
date. La deschiderea unui tabel datele sunt afişate pe ecran organizate pe 
linii şi pe coloane. În cadrul unei baze de date tabelele stochează datele 
ca înregistrări. 

Query -— Interogări. Sunt cererile adresate tabelelor pentru 
extragerea datelor şi afişarea organizată a acestora într-un anumit mod. 
Forms — Formulare. Oferă o interfață atractivă pentru vizualizarea 
sau introducerea datelor din tabele. Prin faptul că urmăresc introducerea 
sau modificarea datelor din tabele după anumite reguli stricte , impuse 
de programator, permit eliminarea erorilor provocate de utilizatori la 
manipularea datelor. 

gq Reports — Rapoarte. Permit extragerea datelor din tabele (eventual 
cu ajutorul interogărilor) şi de a le prezenta în forma în care acestea vor 
fi tipărite pe hârtie. 

șa Macros — Macroinstructiuni. Contin colecții de comenzi — specifice 
Access 97 — care vor fi executate pentru realizarea unui anumit obiectiv. 
Sunt folosite de regulă pentru crearea de meniuri personalizate în cadrul 
unei aplicații şi pentru executarea unor comenzi simple. 

SÉ Module — Module. Contin instrucțiuni VBA (Visual Basic for 
Applications — limbajul de programare folosit de aplicaţiile Microsoft 
Office), grupate în “subrutine” sau “funcţii”. Despre subrutine şi funcţii 
vom discuta în ultimul capitol al acestei lucrări. 


Pentru a crea obiecte noi în cadrul unei baze de date, după ce executați 
click pe eticheta tipului de obiect, executați un click pe butonul “New” (sau 
apăsați combinaţia de taste [ALT]+[N]. 

Pentru a modifica sau pentru a deschide un obiect oarecare din baza 
dumneavoastră de date, după ce selectaţi acel obiect (prin executarea unui 
click pe numele acestuia) executați un click pe butonul “Design” (pentru 
modificări!) sau pe butonul “Open” (pentru a-l deschide!). 

Atunci când nu aveţi selectat nici un obiect din listă (şi acest lucru îl 
puteţi simula foarte simplu executând un click oriunde în zona liberă a listei 
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de obiecte) observați că butoanele “Open” şi “Design” sunt “stinse” 
(expresiile Open şi Design de pe butoane îşi pierd strălucirea), ceea ce ar 
trebui să însemne pentru dumneavoastră că operaţiunile de deschidere şi 
modificare ale unui obiect sunt în acel moment indisponibile. 


1.3. Tabele (Table) 


'Tabelele (Tables) sunt foi de calcul tabelar ale unei baze de date, care 
organizează pe linii şi coloane datele afişate pe ecran. În cadrul bazei de 
date tabelele stochează datele ca înregistrări, care corespund în general cu 
liniile din modul de afişare “Table”. 

Access 97 permite încorporarea tabelelor în cadrul bazei de date ale 
unei aplicații precum şi preluarea datelor din tabelele ale unei alte aplicații — 
prin crearea unui tabel fals , numit tabel ataşat. 

Spre deosebire de tabelele unei baze de date, tabelele ataşate permit 
importul informaţiilor dintr-o bază de date externă (Microsoft Access 
versiune 1.x, 2.0, 7.0/95, sau 8.0/97), sau din fişiere de date de format diferit 
cum ar fi: Microsoft Excel, (BASE, Microsoft FoxPro, sau Paradox. 


1.3.1. Tipuri de date 


În interiorul unui tabel datele sunt organizate pe linii şi pe coloane 
pentru a uşura citirea acestora de către utilizatori. Intersecţia unei linii cu o 
coloană (locul în care se introduc efectiv datele) o vom numi în continuare 
“câmp”. Pentru ca un câmp oarecare dintr-un tabel să accepte un anumit tip 
de date introdus de utilizator este necesar ca acelui câmp să-i fie atribuite 
una din următoarele caracteristici: 
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Text Un set de maximum 255 caractere (inclusiv semnele de 
punctuație şi cifrele). Implicit Access 97 propune ca 
lungimea acestui câmp să fie de 50 caractere — ceea ce în 
majoritatea cazurilor este suficient. 

Memo Asemănător cu tipul Text cu deosebirea că lungimea 
setului de caractere este practic nelimitată. 

Number Un număr întreg sau în virgulă mobilă. Sunt admise 
şase subtipuri. 

O dată calendaristică sau o oră în unul din cele şapte 


subtipuri posibile. 
simple (Adevărat/Fals = True/False, Activ/Inactiv = 
On/Off, Da/Nu = Yes/No) 


OLE Object Un alt tip de date cum ar fi imagini, sunete, etc. 


Hyperlink O referință la un document extern, care, atunci când este 
selectată, deschide documentul respectiv în modul de 
afişare corespunzător. 


Un număr formatat cu două zecimale, care foloseşte 
virgula ca separator între ordinele de mărime şi 
parantezele pentru încadrarea valorilor negative. Admite 
şase subtipuri. 


Un număr întreg care este incrementat în mod automat 
pe măsură ce sunt introduse noi înregistrări în tabel. Sunt 
admise toate cele şase subtipuri ale datelor de tip numeric 
(Number). Recomandăm însă folosirea subtipului Long 
Integer. 


Admite date de tip logic (boolean) pentru a stoca valori 
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1.3.2. Subtipuri de date 


Tipul de date Number admite şase subtipuri de date: 


Byte Valori întregi de la O la 255. Este folosit atunci când 
spaţiul pe disk reprezintă o problemă pentru utilizator. 
Fiecare valoare introdusă ocupă un octet de memorie. 

Integer Numere întregi de la —32.768 la +32.767. Fiecare 
valoare introdusă ocupă doi octeți. 


Long Integer Numere întregi cuprinse între -2,147,483,648 şi 
+2,147,483,647. Fiecare valoare introdusă ocupă 4 
octeți. 


Numere în virgulă mobilă cu până la 15 zecimale, pe 
opt octeți. Folosit pentru calcule care solicită o precizie 
ridicată. 

Replication ID Un număr special, folosit intern de Access 97 pentru 
a identifica în mod unic obiectele unei baze de date. 
Fiecare valoare ocupă 16 octeți. 


Single Aproape toate numerele în virgulă mobilă cu până la 
şapte zecimale, pe patru octeți. 
Double 


Tipul de date Date/Time admite şapte subtipuri de date: 


Stochează data şi ora. Acest subtip de date este o 
combinaţie între subtipurile Short Date şi Long Date şi 
depinde de modul în care aceste subtipuri au fost 
definite în caseta de dialog Regional Settings Proper- 
ties a sistemului de operare Windows. Exemplu: 
04/12/1993 05:34:00 PM 
Asemănător cu modul în care a fost definit în caseta 
de dialog Regional Settings Properties a sistemului de 
operare Windows. Exemplu: 04/12/93 

Asemănător cu modul în care a fost definit în caseta 
de dialog Regionale Settings Properties a sistemului 
de operare Windows. Exemplu: Saturday, April 3, 1993. 


General Date 


Short Date 


Long Date 
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Medium Date Exemplu: 3-Apr-93. 


Long Time Asemănător cu modul în care a fost definit în caseta 


de dialog Regional Settings Properties a sistemului de 


operare Windows. Exemplu: 5:34:23 PM. 
Exemplu: 5:34 PM. 


Short time Exemplu: 17:34. 


Tipul de date Currency admite şase subtipuri de date: 


General 


Afişează numerele în forma în care au fost 
Number introduse. 


Currency Foloseşte virgula ca separator între ordinele de 
mărime şi afişează cel puţin două zecimale. 


Fixed Afişează cel puţin o cifră a unităţilor şi un număr 
definit de zecimale. 


Standard Foloseşte virgula ca separator al ordinelor de 
TT arime yiee pn dome i 

Inmulteste valoarea introdusă cu 100 şi adaugă 
Scientific Foloseşte notația ştiinţifică pentru exprimarea 


1.3.3. Crearea unei baze de date 


În esenţă crearea unei baze de date cu ajutorul programului Access 97 
se rezumă la crearea unui fişier cu extensia .mdb chiar de către program. 
Pasul 1: Pentru aceasta din meniul File al programului executaţi un click pe 

opțiunea New Database.... Dacă parcurs acest pas atunci ecranul 
calculatorului dumneavoastră va afişa imaginea din fig. 1-3-3-1: 
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Blank 


Date 


Preview not available. 


| Fig. 1-3-3-1 hat 


Teas Se | ’ 


Pasul 2: Executati in continuare un click pe iconita “Blank Database” (Baza 


de date fara inregistrari) iar apoi un click pe butonul OK. 


Pe ecranul calculatorului dumneavoastră va apare o casetă de dialog 


asemănătoare cu cea din figura 1-3-3-2: 
File New Database 


PowerPoint 


File name: [ts3-Do}-Date =] 
= N. Fig. 1-3-3-2 |. 
Save astype: {Microsoft Access Databases me E 


Această casetă “File New Database” este în esenţă identică în privința 
funcționarii cu caseta de dialog din figura 1-1-3, diferind de aceasta prin 
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etichetele atribuite diverselor controale şi prin numărul mai mic de funcții 
pe care le pune la dispoziția dumneavoastră. 
Nu uitaţi să precizati că doriți crearea unei baze de date de tip Access 
97 selectând opțiunea “Microsoft Access Databases” din câmpul “Save as 
type:” 
Pasul 3: Dacă toți aceşti paşi au fost parcurşi ceea ce vă mai rămâne de 
făcut este să executaţi un click pe butonul “Create”. 


i a= ISJ-Dolj-Date 


r aaan TA 


În urma acestei acţiuni din partea dumneavoastră, în fereastra 
“Microsoft Access” a programului Access 97 va apare această fereastra cu 
titlul “ISJ-Dolj-Date”. 


+ Încercaţi să creați o bază de date executând însă un click pe eticheta 
“Databases” (caseta de dialog New din figura 1-3-3-1), urmat de un dublu 
click pe una din iconitele care vor apare în listă. 
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1.3.4. Deschiderea unei baze de date 


Odată creată, o bază de date Access 97 (un fişier cu extensia .mdb) 
poate fi deschisă din Windows Explorer prin executarea unui dublu click pe 
numele sau pe iconita acesteia. 

Dacă programul Access 97 a fost deja lansat în lucru, deschiderea unei 
baze de date se face prin apelarea opțiunii Open Database ... din meniul 
File Pentru aceasta executaţi un click pe meniul File apoi un click pe 
opțiunea Open Database .... 

Pentru a finaliza deschiderea bazei de date de care aveți nevoie reluati 
explicaţiile pe care le-am oferit figurii 1-1-3. 

Retineti: deschiderea unei alte baze de date presupune în mod 
automat închiderea bazei de date curente (chiar dacă dumneavoastră nu 
doriţi acest lucru). Dacă doriți sau aveţi nevoie să aveţi deschise simultan 
mai multe baze de date este necesar să lansați în execuţie de tot atâtea ori 
câte baze de date vreți să aveţi deschise, programul Access 97. 


1.3.5. Crearea tabelelor 


Înainte de a începe crearea tabelelor unei baze de date este bine să: 

1. Studiati cu atenţie datele pe care le veţi introduce şi să determinaţi 
formatul acestora. 

2. Analizati datele pentru a stabili relațiile dintre acestea. 

3. Prelucrati şi separați datele pentru a putea crea tabele cât mai mici 
şi Cât mai uşor de înţeles de către cei care vor lucra cu ele. 

4. Vă gândiţi cum puteţi folosi toate facilitățile programului Access 
97. 

5. Solicitaţi ajutorul unor colegi — este surprinzător cât de multe idei 
pentru structurarea unei baze de date vă pot furniza alţii. 
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Presupunând că tocmai ati deschis baza de date “ISJ-Dolj-Date” 
imaginea pe care o va afişa calculatorul dumneavoastră ar trebui să fie 
asemănătoare cu cea din figura 1-2-1. Dacă eticheta Table nu se află în prim 
plan executaţi un click pe aceasta pentru a preciza programului că 
intenţionaţi să intreprindeti o acţiune asupra tabelelor acestei baze de date. 

Executati în continuare un click pe butonul New pentru a trece la 
crearea primului tabel. În caseta de dialog care va apare (fig. 1-3-5-1) sunteți 
invitat să precizati modul în care veţi crea tabelul. 

Înțelegerea modurilor în care poate fi creat un tabel va fi tratată în 
capitolele ineat următoare. Ve dl esii ea modulu E SE 

Alegerea modului în care va fi creat un tabel se foe prin executarea 
unui click pe numele modului de lucru (Datasheet View, Design View, etc.) 
urmat de un click pe butonul OK. 


New Table 


mn Ai ni-i ia 


a. i 


| Design View 
: [Table Wizard 
` {Import Table 
| Create a new table in Tae 
| Datasheet view. 


Fig 1-351 | 1-3-5-1 en SE 


În continuare crearea tabelelor va D tratată de la acest punct în 
capitole-le 1-3-5-1 -> Modul Design View, 1-3-5-2 Modul Table Wizard, 
1-3-5-3 -> Modul Import Table, 1-3-5-4 -> Modul Link Table. 
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1.3.5.1. Modul Design View (Modul Proiectare). 


Dacă ati efectuat toți paşii de mai sus şi ati deschis fereastra “New 
Table” din figura 1-3-5-1, executaţi un click pe opțiunea “Design View” din 
listă, apoi un click pe butonul “OK” (sau apăsaţi pe tasta ENTER). 

Rezultatul acestei acțiuni va fi deschiderea unei ferestre cu numele 


A 


în care sunteţi invitat să precizati: 


generic “Table”, 
Ea Tablel : Table 


SECH | Lookup | m 


[3 4G Field name can be 
| up to 64 characters 
| E eral Including 
4 | spaces. Press Fi For 
| help on Field names. 


Fig, 1-3-5-1-1 


1. Numele coloanelor tabelului dumneavoastră (coloana “Field Name”). 

2. Tipul datelor pe care le veţi introduce în acea coloană. (Coloana “Data 
Type”). 

3. Descrierea (explicaţia) ce va apare pe bara de stare, de fiecare dată când 
veţi intra într-unul din câmpurile acelei coloane. 


Descrierea nu este importantă pentru programare, ea va constitui un 
ajutor de nepretuit când va trebui să va descurcati în hatisul de date şi 
informaţii ale unei baze de date. 

Ne propunem să realizăm un tabel în care să introducem denumirea 
județelor. Pentru aceasta definiti structura tabelului dumneavoastră 
introducând de la tastatură ca în fig. 1-3-5-1-2. 

Am definit astfel câmpurile: 
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1. IdJudet de tip “AutoNumber” — numărător automat — pe care îl 
vom folosi pentru identificarea unică a unui judeţ. 

2. Prescurtare de tip “Text” — pe care-l vom folosi pentru a memora 
prescurtarea auto a judeţului. 

3. NumeJudet de tip “Text” — pe care îl vom folosi pentru a memora 
denumirea judeţului. 


i tbiludete ` : Table 


IN Id Judet TTT Identificatorul $ 


Prescurtare Text Prescurtarea AR 

1 INumeJudet Text Denumirea jude d C 

EE Field Properties ` "7" 
é = peste 

General | Lookup | Bon 
Field Size Long Integer Ze Insert Rows 
New Values Increment 8 =» Delete Rows 
Format artar III 
Caption măi SNE ES 
indexed Yes (No Duplicates) Sa ies, A 


Press Fi for help 


Fig. 1-3-5-1-2 | on descriptions, 


Definiti, în continuare, un index unic pentru coloana IdJudet prin 
executarea unui click cu butonul drept al mouse-ului, oriunde în interiorul 
rândului IdJudet din fig. 1-3-5-1-2 , urmat de executarea unui click pe 
opțiunea Primary Key. Indexul nu va admite introducerea valorilor identice. 

Pe lângă tipul de date care poate fi memorat de către un câmp, este 
necesar, uneori să precizăm şi alte caracteristici (proprietăți) ale câmpurilor, 
ca de exemplu: 

Field Size = mărimea câmpului 
New Values = valoarea care va fi atribuită în mod automat la introducerea 
noilor date într-un astfel de câmp. (Random — generează un 
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număr aleator de tip Long Integer — Increment — numără în 
mod automat înregistrările introduse în acel câmp.) 
Recomandăm proprietatea Increment. 

Indexed = creează sau nu (No) un index pentru rapidizarea căutărilor 
ulterioare a datelor din acel câmp, care poate bloca 
introducerea din greşeală a valorilor identice de către 
utilizatori (Yes (No Duplicates)), sau poate bloca o astfel de 
greşeală (Yes (Duplicates OK)). 

Caption = Eticheta care va fi preluată automat atunci când într-un 
formular va fi folosit acel câmp. 

Default Value = O valoare care va fi introdusă automat la adăugarea de noi 
înregistrări. (Va putea fi modificată de către utilizator!). 


Required = Specifică obligativitatea (Yes) introducerii datelor în acest 
câmp. 
Format = Specifică modul în care vor fi afişate datele introduse în 


acel câmp.(> - pentru afişarea cu majuscule, < - pentru 
afişarea cu litere mici) 

Input Mask = Formatul de afişare şi introducere a datelor (util pentru 
lizibilitatea textului în format special: coduri numerice 
personale, numere de înmatriculare auto, serii şi numere de 
acte de identitate, etc.) 


Închideţi fereastra Tablel:Table, în care ati definit caracteristicile 
câmpurilor, executând un click pe butonul de închidere al ferestrei, pentru a 
salva tabelul creat. 


Microsoft Access 


| ÎN Do you want to save changes to the design of table 'Table1'? 
Fig. 1-3-5-1-3 
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Dacă în acest moment veţi apăsa pe butonul Cancel, veţi reveni în 
modul Proiectare. 

Apăsând însă pe butonul Yes ven primi caseta de dialog următoare 
care vă propune acelaşi nume generic Tablel pentru numele tabelului pe 
care l-aţi creat. Modificaţi şi atribuiti tabelului dumneavoastră numele 
“tblJudete”. 


Save As 

_ Table Names 00 0 0 o 2 UI ~ x 

| ) Gë. i (CER GC KES Brei x 
„Fig, 1-3-5-1-4 


încercați să creați un alt tabel cu numele “tblLocalitati” cu 
următoarele proprietăți: 


IdLocalitate AutoNumber, Increment, Primary Key 


1.3.5.2. Modul Table Wizard — Crearea tabelelor cu ajutorul 

asistentilor Wizard. 

Asistentii Wizard va oferă numeroase elemente de automatizare a 
operațiunilor pe care le intreprindeti. Vă va trebui însă foarte mult timp 
pentru a vă familiariza cu toate facilitățile oferite de aceştia. Este indicată 
însă studierea acestora. 

În exemplul următor vom crea cu ajutorul unui asistent Wizard un 
tabel cu numele AdresaElevi. Pentru aceasta este necesar să obţineţi pe 
ecran caseta de dialog din fig. 1-3-5-1 şi după ce veţi executa un click pe 


mn se 


opţiunea “Table Wizard” din listă, “apăsaţi” pe butonul OK. 
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În acest moment asistentul Wizard pentru crearea tabelelor vă 
propune o serie de tabele grupate în două categorii: Business — Afaceri şi 
Personal. Dacă veți bifa opţiunea Personal, în lista “Sample Tables” va fi 
afişată o listă cu modele de tabele considerate de uz personal. Executati un 
click pe modelul “Addresses”, în cazul în care acesta nu este deja marcat aşa 
cum apare în fig. 1-3-5-2-1. În lista “Sample Fields” vi se va propune 
imediat o listă de tipuri de coloane ce pot fi folosite de acest tabel — pe care 
nu sunteți obligat să o preluaţi şi folosiţi în totalitate. 


| Table Wizard 


Which of the sample tables listed below do you want to use to create your table? 


After selecting a sample table, choose the sample fields you want to include in your new table. 
‘Your table can include fields from more than one sample table. If you're not sure about a field, 
go ahead and include it. It's easy to delete a field later. 


Sample Tables: Sample Fields: Fields in my nev table: 


‘AddressiID 1 
FirstName 
Last ame 
Address 


Addresses 
Guests 
Categories 
Household Inventory 


DO a a pr ni a ase ai 


StateDrProvince 
PostalCode W 


Recipes Country City 
Plants Emailiddress StateOrProvince 
Exercise Log =] HomePhone ve PostalCode 
i ) HomePhone =] 
C Business WorkExtension 
CC Personal MobilePhone sl Fiename Field... X | 


r ` Ge y - pr mt mmm = ale’ 


Fig.1-3-5-2-1) i Caa | 


E: . 
nai — = D = 


ai 


Pentru a prelua doar coloanele de care aveți nevoie selectati-le (prin 


executarea unui click pe nume) şi apăsaţi pe butonul marcat cu “>”. În lista 
“Fields in my table” vor apare numele coloanelor preluate de 
dumneavoastră. Puteţi oricând să eliminați oricare din coloanele preluate 
executând un click pe numele său din lista “Fields in my table”, urmat de un 
click pe butonul marcat cu semnul “<”. Pentru a schimba numele unei 
coloane din lista celor preluate, selectati-o şi apăsaţi pe butonul “Rename 
Field”. — Nu uitaţi să transferați mai întâi toate coloanele, aşa cum apar în 
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fig. 1-3-5-2-1, pentru a putea realiza tabelul de care vom avea nevoie pentru 
aplicația noastră. 

Redenumiti coloanele preluate aşa cum apar în figura următoare. 

Dacă ati redenumit ca în figura de mai sus coloanele tabelului 
dumneavoastră, apăsaţi pe butonul “Next” pentru a trece la pasul următor. 


Retineti: puteți întrerupe şi renunța oricând la crearea unui tabel cu ajutorul 
asistentilor Wizard apăsând tasta Escape sau executând un click 
pe butonul Cancel. De asemenea puteţi finaliza tabelul creat pe 
această cale apăsând pe butonul Finish — dar numai în condițiile 
unei cunoaşteri foarte bune a paşilor urmaţi de aceşti asistenți. 


Table Wizard 
Which of the sample tables listed below do gou want to use to create your table? 


After selecting a sample table, choose, the sample fields you want to include in. your new table, 
‘Your table can include fields from more than one sample table. If youte not sure about a field, 
Co ahead and include it. It's easy to delete a field later, 


Sample Tables: Sample Fields: Fields in my new table: 
Me idAdesa "ec 


AddressiD 
FirstName 
LastName 
SpouseName 


Addresses 
Guests 
Categories 
Household Inventory 


Recipes ChildrenNames IdLocalitate 
Plants _ | Address Kc IdJudet 
Exercise Log =] City << | | CodPostal e 
r A State0rProvince SC? Telefon 7 =] 
Business "1 PostalCode : SE Eer 
Country sl Rename Field... 


te Personab 


Fig. 135-22 


În pasul următor sunteţi invitat să precizati numele tabelului în câmpul 
marcat cu cifra | în figură. Denumiţi-l “AdreseElevi”! 
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Table Wizard RES 


What do you want to name pour table? 


IS? udete S 1 


i = | Microsoft Access uses a special kind of field, called a primary key, 
Ce to uniquely identify each record in a table. In the same way a 
PTA ZE license plate number identifies a car: a primary key identifies a 
BRK RRA RRR record, 


n @ van nex any | 


$ aa KEH wn Do you want the wizard ta set a primary key for pou? 


oa XXX HHH KEK 


zf 5, mm KHE mm w Yes, set a primary key for me. 
EH phe tte einer ha 


ale 1-3-5-2-3 


Retineti: pentru numele tabelelor şi al obiectelor pe care le creaţi în Access 


SCH a 
ii: 


97 puteţi folosi toate regulile de compunere a numelui folosite de 
Windows. Recomandăm omiterea spațiilor din numele obiectelor 
pentru a preveni eventualele confuzii din partea programului. 


Bifati opțiunea “No, PU set the primary key.” pentru a nu permite 
asistentului atribuirea unui index unic după regulile sale deoarece nu 
întotdeauna aceste reguli corespund necesităților dumneavoastră. Asistentul 
Wizard recunoaşte indecşii după denumirile standard pe care utilizatorii le 
acordă coloanelor. (ID; CODE) şi după proprietățile specifice câmpurilor 
indexate după o cheie unică, dar nu întotdeauna aceste criterii corespund 
necesităților dumneavoastră. Indiferent de decizia pe care o veţi lua în acest 
moment , nu uitaţi că oricând veţi putea modifica structura unui tabel 
deschizându-l în modul proiectare (Design View). 

„Pentru a trece la pasul următor apăsaţi pe butonul Next. 

În figura 1-3-5-2-4 veţi regăsi numele coloanelor definite de 

dumneavoastră, deschizând caseta “combo” aşa cum se arată la poz. 1. 
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Table Wizard 


What field will hold data that is urique for each record? 


Id&cresa R 1 m 


dp What type of data do you want the primary key field to contain? 


| © Consecutive numbers Microsolt Access assigns automatically to 
| Ley records, 


DE ` Numbers | enter when | add new records., 
|) © Numbers and/or letters | enter when | add new records., 


1 wu vm gun E: 
2 am HEE BREE 


DAA o an 
TBS van vun 
ES am wan 
DS voa wun ` 


Fig 1:3-5:2-4 Fe | Kee 

Alegeţi “IdAdresa” pentru indexul unic. În continuare va trebui să 
precizati modalitatea in care va fi realizată numerotarea înregistrărilor in 
tabelul creat: 

1. În mod automat atunci când veţi adăuga o nouă înregistrare 
(“Consecutive numbers Microsoft Access ...). 

2. Manual de către utilizator la introducerea unei noi înregistrări. 
(“Numbers I enter when J add new records”) 

3. Manual, prin introducerea unui număr unic sau a unei combinaţii 
unice de caractere de către utilizator. (“Numbers and/or letters ...”) 


Alegeţi prima opțiune, ca în figura 1-3-5-2-4 şi apăsați pe butonul 
“Next” pentru a trece la pasul următor. 

Dacă v-aţi gândit să stabiliți o relaţie între datele din tabelul dum- 
neavoastră “AdreseElevi” şi un alt tabel (presupunem “tblLocalitati”), 
efectuaţi paşii din fig. 1-3-5-2-5 fără să apăsaţi pe butonul Next. Stabilirea 
unei relații între cele două tabele va fi evidenţiată în fig. 1-3-5-2-6. 
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Table Wizard 


1s your new lable related to ary other tables in your database? Related tables have 
records, Usually, pour new table is related to at least one thes table in the curert 


în some cases, the wieact vl caste table rolaorishice for you. The Bet below shows hope pous 
new table is related to existing tables. To change how a table is related, select a table in the Est 
end ek Retationehing 
feng E - My new tbiludete? table is ... 

not related to 'T able6' 

not related to 'Table?' 

not related to 'T abled’ 

net related to ‘Tabled 

not related to "tblFormular”' 
nct related to 'tbliudete' 
inot related to Wl oC altatt 


RHE BAR BRN RRR 
NUX RAE HRA RYH 
XH RAR KRX RXR 


IN, ma ee a pa 
| 


RE 13525 | d ech <Back 


În acest moment aveţi la dispoziţie trei opţiuni pentru precizarea 
tipului de relație: 
1. Anularea oricărei relaţii sau precizarea faptului că între cele două tabele 
nu există nici o relaţie (“The tables aren’t related”). 
2. O înregistrare din tabelul “AdreseElevi” are mai multe coresponden-te in 
tabelul “tblLocalitati”. — One record in the “AdreseElevi” table . 
3. O înregistrare din tabelul “tblLocalitati” are mai multe coresponden-te in 
tabelul “AdreseElevi”. — One record in the “tbiLocalitati” table ... 
Bifati ultima opţiune şi executaţi un click pe butonul OK. 


Table Wizard 


Is your new table related to any other tables in your database? Related tables have matching 
records. Usually. your new table is related to at least one other table in the current database, 


In some.cases, the wizard will create table relationships for you. The list below shows how your 
new table is related to existing tables. To change how a table is related, select a table in the list 
and click Relationships. 


4 My new thiludete? table is 


‘admin: | {not related to 'T able6" 
tg Weed nat related to 'T able?" 
| HEX REK KEN am not related to "Tables" 
KEK HEE KXX XKX nat related to 'T ableS' 
{HER vun ma RRR | | nat related to ‘tbiFormular’ 
/ d | fnot related to ‘thUudete* 
related to 'tblLacalitatt 


[Fig 13526 | T3526 Lesser caca | cam [ie] e i 
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Observati modalitatea în care Access 97 vă atrage atenția asupra 
tipului de relație pe care a realizat-o conform precizărilor dumneavoastră. 

Apăsaţi pe butonul Next pentru a trece la pasul următor. 

În continuare asistentul Wizard vă propune alegerea uneia din cele trei 
acțiuni pe care le poate efectua după ce veți apăsa pe butonul “Finish” şi 
după ce va crea tabelul dumneavoastră: 

1. Reintrarea în modul de lucru proiectare pentru a putea modifica 
manual structura tabelului pe care l-a creat pentru dumneavoastră. 

2. Deschiderea tabelului pentru introducerea manuală a datelor “Enter 
data directly into the table.” 

3. Crearea unui formular pentru introducerea datelor. “Enter data into 
the table using a form...”. 

Optaţi pentru cea de-a doua variantă propusă şi apăsaţi pe butonul 
Finish aşa cum este indicat în fig. 1-3-5-2-7. 


Table Wizard 


That's all the information the wizard needs to create pour table. 


Alter the wizard creates the table, what de you want ko ded: 
Cc tae aa 


BI Ant trtnant nt e 


CR EA VE dee forma, © 


ki 


"m Ci WS on E with the table. 


| Fig, ee Zei roa | SE SR Ne: AC 


E EE mi 


e neie Eeer 


Tabelul dumneavoastră a fost creat în acest moment şi tot ceea ce vă 
mai rămâne de facut este să introduceţi datele. În final inchideti acest tabel 
pentru a reveni la fereastra bazei dumneavoastră de date. 
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SS AdreseElevi : Table | SE 


|_| iaAdresa | Nume [Prenume] Adresa [IdLocalitate| liJudet | CodPostal 
Lä 


Fig. 1-3-5-3-1 


Record: Hl 1 > II! 


1.3.5.3. Modul Import Table 

Dacă în alte baze de date Access 97 există tabele a căror structură sau 
conținut poate fi considerată utilă aplicaţiei dumneavoastră nu ezitaţi s-o 
preluaţi pentru a evita efortul creării sale. Pentru aceasta executaţi un click 
cu butonul drept al mouse-ului în interiorul listei cu tabelele bazei 
dumneavoastră de date iar apoi executați un click pe opțiunea “Import” din 
meniul de context aşa cum sugerează fig. 1-3-5-3-1. 


im ISJ-Dolj-Date : Database ils! ES 


E Tables | Queries} ES Forms | 8 Reports| Z macros | 4 Hiel 


| WE | 


Desy 


AdreseElevi 


ER 


Line U6 Icons 


fina tu pen aa 


+ Link Tables;,. 
Biren ` 


od Relationships... 


Fig. 1-3-5-3-1 


Pentru a înțelege funcționarea ferestrei din revedeti explicaţiile de la 
fig. 1-1-3. Dupa selectarea bazei de date din care se va face importul unui 
tabel apăsaţi pe butonul “Import”. 
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Conform fig. 1-3-5-3-3 puteți selecta chiar mai multe tabele (prin 
click-uri succesive) pe care să le introduceţi în baza de date. Deselectia unui 
obiect selectat din greşeală se face prin executarea a încă unui click pe 
numele obiectului selectat. Apăsaţi pe butonul OK după selecţia obiectelor 
care vor fi importate. 

În urma acestei operaţii tabelele vor fi preluate şi introduse în baza 
dumneavoastră de date. 


— ie 3 ere eege 


ai E E e STĂ stil i 


nass EE Le a 


1.3.5.4. Modul Link Table 


Import Objects 


E Tables | E Queries |, E ES Forms | E Reports | bei Macros |. ka modules | 
thl4dresa | 
tbllstoricErori 7 Cancel | n 
Fig. 1-3-5-3-3 
i iz Select All | 
i ; Deselect All | 
jtblUnitati J RE 


TipUnitate 
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Preluarea datelor din alte fişiere sau din tabelele unei alte baze de date 
se poate face nu numai prin importarea acelor fişiere ci şi prin realizarea 
unei “scurtături” la fişierele sau tabelele unei alte baze de date. Avantajul 
acestei metode este reducerea mărimii bazei de date prin neincluderea 
înregistrărilor în fişierul Access. Pentru realizarea ataşării unui tabel sau 
fişier extern la baza dumneavoastră de date, executaţi un click cu butonul 
drept al mouse-ului în interiorul listei tabelelor bazei de date şi din meniul 
de context executați un click pe opțiunea Link. (v. fig. 1-3-5-3-1). 

În caseta de dialog “Link” va trebui, la fel ca în fig. 1-3-5-3-2 să 
selectaţi baza de date care conţine tabelele sau obiectele pe care doriţi să le 
atasati bazei dumneavoastră de date. 

Observati tipul de iconiță pe care aplicaţia Access 97 o atribuie in mod 
automat tabelelor ataşate. De reținut că proprietățile unui tabel ataşat nu pot 
fi modificate de către Access 97 ci doar datele pot fi prelucrate şi 
modificate. 

să 1SJ-Dolj-Date : Database e 

Gre) Bere] EN Forms | 88 airs] 22 macros | de ocr] 
i K AdreseElevi E 
tblJudete 


tblLocalitati 


tbiLocalitatiselectie 


thiUnitateNumez 


“i B&tbiUnitateNumes 


1.3.6. Relationarea tabelelor 


Un element foarte important care trebuie avut in vedere la proiectarea 
unei baze de date este definirea sistemului de relaţii dintre tabelele acesteia. 
În absenţa unui sistem de relaţii, o bază de date nu este mai performantă 
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de mecanismul bazei de date. Este dificil de conceput o bază de date utilă 
care să nu includă câteva relații între tabele. 

Tipurile de relaţii pe care le puteţi defini între tabelele unei baze de 
date sunt: 

1. One To One — Unu la unu. Aceasta înseamnă că o înregistrare 
dintr-un tabel are corespondent doar o singură înregistrare dintr-un alt tabel. 

2. One To Many — Unu la mai multi. O înregistrare din tabelul sursă 
are mai multe corespondențe în celălalt tabel. 

3. Many To One — Mai multi la unul. Mai multe înregistrări dintr-un 
tabel au corespondent o singură înregistrare într-un alt tabel. 

Pentru a crea relaţii între tabele ees astfel: 


gm ISJ-Dolj-Date : Database Sy i=) ES 


Tables | GI Queries| Forms | Reports] a Macros | 3% Modules| 


AdreseElevi X pen 
tblJudete KN 


thiLocalitati Anert Icons. 
thiLocalitatiSelectie ine er 


nare ale IEI e be 


ee ez 2 Import;,.. S 


Pasul 1: Executati un click cu butonul drept al mouse-ului în fereastra bazei 
de date şi din meniul de context executați un click pe opţiunea 
“Relationships”. 

Pasul 2: Dacă este prima când deschideţi fereastra “Relationships” a bazei 
de date, va fi afişată şi fereastra “Show Table”, care vă permite să 
stabiliți noi relaţii (sau să modificaţi relaţiile existente) între 
tabelele şi interogările dumneavoastră (fig. 1-3-6-2). Pentru a 
adăuga un tabel sau o interogare în fereastra Relationships, 
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executați un click pe numele unui tabel (sau interogări) din 
fereastra Show Table iar apoi un click pe butonul OK. Reluati 
operația până la introducerea tuturor tabelelor în fereastra 
Relationships. În final apăsaţi pe butonul Close pentru a închide 
caseta Show Table. 


Pasul 3: Pentru a stabili acum o relaţie între tabelul tblJudete şi tabelul 


tblLocalitati, prin intermediul câmpului IdJudete, agatati câmpul 
IdJudet din tblJudet şi aruncaţi-l peste IdJudet din tblLocalitati, aşa 
cum se arată în fig. 1-3-6-3. 


Show Table DE 


Tables | EF. queries | E Bah] 


tbiUnitateNume3 


: Prescurtare 
NumeJudet 


IdLocalitate zi 


Fig. 1-3-6-3 
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Retineti: pentru stabilirea unei relaţii între două tabele, nu prezenţa unui 
câmp cu nume identic este necesară, ci prezenţa a două câmpuri 
care contin acelaşi tip de date. În exemplul nostru IdJudet din 
tblJudete este de tip AutoNumber - Long Integer iar IdJudet din 
tblLocalitati este de tip Number — Long Integer. Este recomandat 
să asiguraţi, înainte de a începe crearea unei relaţii, indexarea 
după o cheie unică (Yes (No Duplicates)) a câmpului din tabelul 
“Master” (în situația de faţă tblJudete este tabelul “Master” iar 
tblLocalitati este tabelul “Slave” — care este indexat, dar nu după 
o cheie unică). Nerespectarea acestor indicaţii va duce la eşuarea 
stabilirii relaţiei dorite de dumneavoastră. 

În definirea sistemului de relaţii există un sistem bine definit. Vă veți 
da seama că majoritatea bazelor de date bine proiectate folosesc mai multe 
tabele de dimensiuni mici pentru a înregistra elemente care trebuie să fie 
referite de alte tabele. 

Pasul 4: În cazul în care agățarea şi aruncarea unui câmp nu a fost executată 
corect, aveţi posibilitatea restabilirii relației dintre două câmpuri, 
prin modificarea numelui câmpurilor înscrise în listele 
“Table/Query” şi “Related Table/Query”. 


Relationships 


een. gaer 
|. Cancel | 


doit e | 
KS 


i [O cascade update Relates Fields 


| Fig. 1-3-6-4 


| 

IEF e De ste Related Recordi | 
H 

Relationship Type: | One-To-Many | 
Le 
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Bifarea casetei de validare “Enforce Referential Integrity”, are ca efect 
activarea şi aplicarea integrităţii referentiale la nivelul câmpurilor alese. 

Integritatea referențială este un sistem de reguli Microsoft Access, 
folosit pentru asigurarea relaționării câmpurilor valide, care nu permite 
ştergerea sau modificarea accidentală a datelor relationate. Integritatea 
referenţială poate fi activată atunci când sunt cunoscute şi respectate 
următoarele reguli: 

Câmpul relationat din tabelul master este o cheie primară sau are un 
index unic. 

Câmpurile relationate contin acelaşi tip de date. Sunt admise totuşi 
două excepții: 

1. Un câmp de tip Autonumber poate fi relationat cu un câmp de tip 
Number dacă acesta conţine valori de tip Long Integer. 

2. Un câmp de tip Autonumber care conţine date de tip Replication 
ID poate fi relationat cu un câmp de tip Number dacă acesta conţine date de 
acelaşi tip (Replication ID). 

Ambele tabele aparțin aceleiaşi baze de date Microsoft Access. 

Dacă tabelele care se relaționează sunt de tip “scurtătură” (Link 
Table), stabilirea relationarii se va face numai în baza de date care conţine 
tabelele originale. 


Butonul “Join FERS Properties 
type permite MPP de ea eben 
precizarea tipului de ‘tables are equal, 


relație care va fi 
ae 2: Include ALL records from 'tblludete! and only those 
realizata, astfel: records From 'tbiLocalitati! where the joined fields are 


Stabilirea tipului SET 
: i e şi Include ALL records from ‘tblLocalitat? and only. those 
de relatie se face prin records from 'tbldudete! where the joined fiekis are 


executarea unui click Equal: Fig. 1-3-6-5 


pe butonul radio situat 

în partea stângă a __ cancel | 
pat urmat de =n °°: - ~~" 
efectuarea unui click pe butonul OK. 
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Este admisă şi efectuarea unui dublu click pe butonul radio. 

Opţiunea “Only include rows where the ...” stabileşte o relație de tip 
“unu la unu” între câmpurile celor două tabele, ceea ce înseamnă că unei 
înregistrări de pe coloana IdJudet a tabelului tblJudete îi va corespunde o 
singură înregistrare în coloana IdJudet a tabelului tblLocalitati. 

Opţiunea “Include ALL records from tblJudete...” stabileşte o relație 
de tip “Many to One”, ceea ce înseamnă că o înregistrare din tabelul 
tblLocalitati va avea corespondente mai multe înregistrări din tabelul 
tblJudete. 

Pentru situația noastră alege-ti opțiunea a treia “Include ALL records 
from tblLocalitati...” , ceea ce înseamnă că mai multe înregistrări din 
tabelul tbILocalitati vor avea cel putin un corespondent în tabelul tblJudete. 
Pasul 5: Rezultatul, după apăsarea pe butonul OK, va fi imaginea din figura 

1-3-6-6, care vă sugerează cu ajutorul sagetilor, tipurile de relaţii 
stabilite între cele trei tabele. Din schemă se observă că au fost 
create două relații de tip “Many to One” — multi la unul — una între 
înregistrările coloanei IdJudet din tabelul tblLocalitatati şi 
înregistrările coloanei IdJudet din tabelul tblJudete, iar alta (pe care 
o veţi crea dumneavoastră) între înregistrările coloanei IdLocalitate 
a tabelului AdreseElevi şi înregistrările coloanei IdLocalitate a 
tabelului tblLocalitati. 


=: Relationships 


Prenume 
Adresa 
IdLocalitate sl 8 
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1.3.7. Importul şi exportul datelor 


Importul datelor reprezintă o metodă comodă şi rapidă de preluare a 
datelor din diverse tipuri de fişiere care pot stoca datele şi introducere a 
acestora în baza de date a utilizatorului. 

Dezavantajul importului de date este acela că odată cu preluarea 
datelor utile se preia şi structura fişierului care conţine datele iar utilizatorul 
va trebui să modifice această structură ulterior pentru a o putea folosi şi 
adapta cerinţelor sale. 

Pasul 1: Pentru a importa datele stocate într-un alt fişier extern bazei 
dumneavoastră de date executaţi un click cu dreapta în fereastra 
Database iar din meniul de context care se va deschide executaţi 
un click pe opţiunea “Import”. 

Activarea acestei comenzi ar fi putut fi realizată şi prin executarea 
unui click pe meniul File — Get External Data — Import. 

Pasul 2: În figura 1-3-7-1 trebuie să precizati numele bazei de date de tip 
Microsoft Access din care veți prelua datele. Pentru a înţelege 
funcţionarea acestei ferestre de comunicare revedeti explicaţiile 
de la fig. 1-1-3. 


‘Look in; ‘fa Access97 zj ©) ala E girls: zl ST ae 


Advanced... | 


Fic. eee 


Find Files that match these search criteria: 


“File names | J v Text or property: | SCH Now | 
Files of types [microsoft Access =] Last goe SCH =] arch | 


— Soe a 


Not all File types are installed by defaut. Ee BEE GE „Data access, | 
i Dien. md Fle types ere also avaiable m tie ergeet ] 


[Z Fiets) found. 


Ise 


“eS age x ie = E ze = Ee Met a eS = 


Dupa identificarea bazei de date din care veti prelua datele executati 
un click pe butonul Import. 
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În continuare executaţi un click pe numele fişierului (tblNume) din 
baza de date pe care doriţi să-l preluaţi iar apoi un click pe butonul OK 
pentru începerea transferului datelor. 


Import Objects Ne Z Sa E 
Tables | F Queries |. PR Forma] 8. Reserts| 2° Macros | A8 modules | 
[Tablet c=) nn: ae 


itblAdresa Lë 


StblIstoricErori e i | 
tblJudete 
S 


B® tblunitateNurne2 


Ş tbllinitateNumea 


În urma acestei operaţii fişierul tblNume va apare în baza 
dumneavoastră de date, putând fi folosit de acum înainte ca orice alt tabel 
creat de Microsoft Access pentru bazele sale de date. 

Pasul 1: Operațiunea inversă importului datelor — exportul — vă permite 
transferul tuturor lucrărilor realizate (tabele, interogări, formulare, 
etc.) în baze de date externe sau în fişiere de un alt tip care pot fi 
folosite şi interpretate de alți utilizatori. Pentru aceasta deschideţi 
meniul de context al oricărui obiect din fereastra Database 
executând un click cu butonul drept al mouse-ului pe numele 
acestuia şi activati opțiunea “Save As/Export”. Acelaşi rezultat il 
puteți obține deschizând meniul File şi alegând opţiunea “Save 
As/Export” din acesta. 

În această situație vom exporta fişierul tblJudete într-un fişier Excel 
situat în afara bazei noastre de date, deoarece exportul unui tabel sau al unui 
obiect în interiorul aceleiaşi baze de date înseamnă de fapt copierea lui şi 
acest lucru nu ne ajută foarte mult în situaţia de fata. 

Pasul 2: Alegeţi prin urmare opţiunea “To an External File or Database ...” 
din fereastra “Save as...” şi executați apoi un click pe butonul 
OK, aşa cum se observă în fig. 1-3-7-3. 


50 INIȚIERE ÎN ACCESS 


Dacă ati fi ales opțiunea “Within the Current Database as” ar fi fost 
activat imediat şi câmpul New Name iar dumneavoastră ap fi avut 
posibilitatea acordării unui alt nume fişierului nou creat. 

Pasul 3: Precizati numele fişierului care va fi creat în folderul destinaţie, (în 
câmpul File Name), tipul fişierului care va fi creat, alegând din lista 


Save Table ‘tbWudete’ In.. ra EG 
Save i [ee i i ej col ex] [E alee) zi 


Fonts 
g Imagini 
`] Imagnı Corel 


File pame: tblJudete dy 
G : ZX 4 
“Save as type: [Microsoft Excel 97 
ky A Microsoft Access ra isi 
Not all file type] Text Files “lk. 
“Access, ChangqMicrosoft Excel 5-7 ice 97 
g me Microsoft Excel 37 E a t 
HTML Documents 
Microsoft Excel 3 = 


derulanta “Save as type...” aplicaţia corespunzătoare (Excel 97 în cazul 
nostru) şi executaţi un click pe butonul “Export”, aşa cum este indicat in fig. 
1-3-7-4. 

Dacă nu există nici o eroare în funcţionarea sistemului dumneavoastră, 
exportul va fi realizat, iar programul Access 97 va reveni la fereastra 
Database. 


Capitolul 2 
INTEROGARI (QUERY) 


2.1. Notiuni generale 


Interogările sunt folosite de aplicaţia Access 97 pentru vizualizarea, 
modificarea şi analizarea datelor în diferite moduri. De asemenea ele pot fi 
folosite ca o sursă de înregistrări pentru formularele şi rapoartele 
utilizatorilor. 

Aşa cum se observa din figura 2-1-1, interogarea 
“tblLocalitati_Crosstab” combină informaţiile conţinute în tabelele 
“tblLocalitati”  tbiLocalitati : Table 


si “tblJudete” [ical caine RER au 


pentru a oferi 55 Brăiesti Cornu Luncii 5777 Suceava 
un centralizator 386 Sasca Mică de Suceava 
ane 385 SascaMare Cornu Luncii j Suceava 
al localităților 307 Păiseni Coru Luncii Suceava 
aparținând unei 113 Măruntisu ` CP idee, SH 
140 Danila 

comun £ q 

a E 306! Mărginenii de Ds a? 
oarecare dintr- A11!Vilddeni DA p) 


un județ i 79. Călinesti Enac D: 


înregistrat în 

baza de date. 

Din exemplul 
folosit aici se 
poate observa SE meng 

că în judeţul ii „Sasca Mare D 

Suceava există Sera Mică Fig. 2-1-1 
două localități 
în comuna 
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Ciprian Porumbescu şi patru localități în comuna Cornu Luncii — Brăieşti, 
Păiseni, Sasca Mare şi Sasca Mică. 


2.2. Tipuri de interogări 


În funcţie de tipul informaţiilor oferite, de modul de prelucrare al in- 
formaţiei ti de acțiunea executată, interogările sunt de mai multe tipuri: 

1. Interogări de selecţie — “Select Query” — care permit selectarea da- 
telor după un criteriu definit de utilizator, din unul sau mai multe tabele sau 
chiar din fişiere externe bazei de date. Interogările de selecţie sunt cel mai 
des folosite. 

2. Interogări încrucişate — “Crosstab Query” — care permit selectarea 
şi prelucrarea datelor după un criteriu definit de utilizator, din unul sau mai 
multe tabele sau chiar din fişiere externe bazei de date. 

3. Interogări pentru crearea tabelelor — "Make Crosstab Query” — care 
au ca efect crearea unui tabel în care vor fi depuse înregistrările selectate şi 
prelucrate după un criteriu definit de utilizator. 

4. Interogări de adăugare — “Append Query” — care permit adăugarea 
de noi înregistrări într-un tabel oarecare al unei baze de date. 

5. Interogări de actualizare — “Update Query” — care permit actualiza- 
rea înregistrărilor unui tabel oarecare al bazei de date, după un criteriu de 
asemenea definit de utilizator. 

6. Interogări de ştergere — “Delete Query” — care permit ştergerea în- 
registrărilor unui tabel al bazei de date 

În Access 97 interogările pot fi folosite ca sursă a unui “set de înregis- 
trări “ (Recordset) pentru controalele unui formular sau raport. 


2.3. Crearea unei interogări 


Pentru crearea unei interogări executaţi un click pe eticheta “Queries” 
a ferestrei bazei de date, astfel ca aceasta să vină în prim plan, iar apoi 
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executaţi un click pe butonul “New” din fereastra “Database”. (Ca variantă 
de executare a aceleiaşi operaţiuni executaţi un click pe meniul “Insert” al 


A 


aplicației Access 97 iar apoi un click pe opţiunea Query). 
j i In caseta 


KE 


(Nee Query sees: — 
T “New Query” care 


‘Design view 
Simple Query Wizard Inc 
Crosstab Query Wizard 
Find Duplicates Query wizard 
Find Unmatched Query Wizard 


va apare sunteți 


invitat să precizati 
(prin executarea 
unui click pe 
denumirea din lista 
oferită) modalitatea 
de crearea a noii 
interogări. 


Pentru realizarea obiectivelor propuse în acest manual, executați un 
click pe opțiunea “Design View” din listă iar apoi un click pe butonul 
“OK”. 


2.3.1. Modul Proiectare (Design View) 


Dacă ați executat corect paşii descrişi anterior, pe ecranul monitorului 
dumneavoastră ar trebui să apară imaginea din figura 2-3-1-1. Sunteţi invitat 
în acest moment sa precizati care tabele vor contribui la furnizarea datelor 
pentru realizarea interogării dumneavoastră. 

Furnizarea datelor necesare realizării interogării poate fi realizată fie 
de tabelele fie de interogările bazei de date. 

Pasul 1: Pentru aceasta selectați, prin executarea unui click pe nume, tabelul 
sau interogarea sursă şi apăsați pe butonul “Add” din caseta de 
dialog “Show Table”. Folosiţi pentru interogarea noastră tabelele 
“tblJudete” şi “tblLocalităti”. 


54 INIȚIERE ÎN ACCESS 


Le Queryl: Select Query —_ 
Show Table 


Tables | Queries | EI Both | 


i 


Field: 
Table: 
Sot 
Show: 
Criteria: 
or: 


tblLocalitati 
thiTipUnitate 


În situaţia în care ati dori ca datele necesare interogarii dumneavoastră 
să fie furnizate de o interogare existentă trebuie să efectuaţi un click pe 
eticheta “Queries” din caseta de dialog “Show Table” şi să reluati paşii 
descrişi în paragraful anterior. 

Pasul 2: Apăsaţi în continuare pe butonul “Close” pentru a încheia procesul 
de stabilire a furnizorilor datelor necesare interogării. 

Precizarea coloanelor, celor două tabele selectate anterior, care contin 
datele care vor fi afişate de către interogarea noastră se face, fie: 

1. Prin executarea unui dublu click pe numele coloanei unuia din 
tabele selectate (în exemplul nostru coloana “NumeJudet” din tabelul 
“tblJudete”) 

2. Prin “deschiderea” (efectuarea unui click pe secțiunea activă — tri- 
unghiul cu vârful orientat în jos) listei derulante situată în secțiunea 
inferioară a ferestrei “Queryl: Select Query” şi efectuarea unui click pe 
numele coloanei (în cazul nostru pe elementul “tblJudete.NumeJudet”. În 
această listă derulantă punctul situat între numele tabelului — “tblJudete” — şi 
numele coloanei acestui tabel este folosit ca separator. Lipsa acestui punct 
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va face ca aplicaţia Access 97 să interpreteze expresia din câmpul “Field” ca 
fiind o variabilă definită de utilizator, ceea ce ar putea duce la afişarea unor 
rezultate greşite de către interogare). 

E Query] : Select 


CTS 


ÎNumejudet e | Sa.) i A ji 


tbiludete.NumeJud 
tblLocalitati.* gë 
tblLocalitati.ldiocal 


3. Prin agăţarea unei coloane — din caseta corespunzătoare unui tabel 
cu date sursă afişată în secțiunea superioară a ferestrei “Query1:Select 
Query” — şi aruncarea acesteia într-unul din câmpurile libere de pe rândul 
“Field”. 


Pentru crearea acestei interogări al cărei scop este acela de afişa lista 
localităților înregistrate în baza de date, ordonată în ordinea alfabetică a 
numelui localităților şi grupată după numele judeţelor (şi ele aranjate în 
ordinea alfabetică a numelui) este necesar, ca folosind una din cele trei 
variante descrise mai sus — şi sugerate de fig. 2-3-1-2 — să alegeţi pentru 
primul câmp de pe rândul “Field” coloana “NumeJudet” din tabelul 
“tblJudet”, pentru cel de-al doilea câmp coloana Localitate din tabelul 
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“tblLocalitati”, iar pentru cel de-al treilea câmp coloana “Comuna” din 
tabelul “tblLocalitati”. 

Executarea întocmai a operaţiunilor descrise în acest capitol ar trebui 
să conducă la apariţia unei ferestre asemănătoare cu cea din fig. 2-3-1-3. 


Si QryLocalitati : Select Query 


Le e ir ee ee Mead te ae e au a 
tblLocalitati thlLocalitati 
III eee oe, GI 


Stabilirea tipului de sortare a datelor care vor fi afişate pe coloanele 
interogării se realizează prin alegerea unuia din elementele “Ascending” — 
pentru sortare ascendentă — sau “Descending” — pentru sortare descendentă. 
Alegerea opțiunii “not sorted” din aceasta lista derulantă va ca efect afişarea 
datelor din coloana aleasă în ordinea în care acestea au fost introduse în 
baza de date. Stabiliti în continuare o sortare de tip ascendent pentru toate 
cele trei coloane ale interogării. 

Stabilirea criteriului după care se va afişarea numai a anumitor date, 
din totalul celor înregistrate se face prin introducerea unei expresii numerice 
sau literare în câmpul “Criteria”. Introduceţi pentru exemplul nostru în 
câmpul “Criteria” de pe coloana “NumeJudet” expresia “Suceava” (inclusiv 
ghilimelele), în câmpul “Criteria” de pe coloana “Localitate” expresia > 
“Br” (inclusiv ghilimelele) iar în câmpul “Criteria” de pe coloana “Comuna” 
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expresia Is Not Null. Dacă ati efectuat corect indicațiile din acest paragraf 

atunci efectul acestor operațiuni va fi următorul: vor fi afişate doar satele din 

județul Suceava. 

Pasul 3: Pentru a “vedea” rezultatul acţiunii unei interogări puteţi 
întreprinde în continuare una din următoarele acţiuni: 


DEE IEI ee IE DEE e E a ele een ATP zl 
tblLocalitati 
SEET eee EH Jee E 


Is Not Null 


1. Executati un click cu dreapta in zona libera a sectiunii superioare a 
ferestrei “Queryl: Select Query” şi apoi un click pe opţiunea “DataSheet 
View” din meniul de context. 

2. Executati un click pe meniul “File” al aplicaţiei Access 97 iar apoi 
un click pe meniul DataSheet View” 

3. Executati un click pe triunghiul cu vârful în jos din partea dreaptă a 
butonului “View” apoi un click pe opțiunea “DataSheeet View”. 


Ca urmare a uneia din cele trei acţiuni anterioare alese şi executate de 
dumneavoastră interogarea creată — căreia i-a fost atribuită deocamdată 
denumirea generică “Queryl” — va fi executată imediat iar rezultatele sale 
vor fi afişate într-un tabel.(v. fig. 2-1-3-1-5). 
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IE? Orylocalitati : Select Query 


Bräiesti 
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= SEET | 

) 


Cornu Luncii 


Brasca Ciprian Porumbescu 
Brodina de Sus Izvoarele Sucevei 
Brosteni Drăguseni 
Buda Zvotiste 
Câlinesti Enache Darmanesti, Mantes 
Călugărita Horodnic de Sus 
_ Capu Câmpului Valea Moldovei 
Colacu Fundu Moldovei 
Corlata Dragoiesti 4 
Corocâiesti peri Fig. 2-3-1-5 
Cotu Ban Vadu Moldovei 
Dânila Darmane sti wj 


Pasul 4: Pentru a reveni la modul proiectare, după vizualizarea datelor 
sortate şi ordonate după criteriul stabilit recomandăm executarea 
unui click pe meniul “File” urmat de executarea unui click pe 
opțiunea “Design View”. Desigur mai sunt şi alte variante, dar ce 
satisfacţie ati mai avea dumneavoastră cititorii dacă nu v-ar mai 
rămâne nimic de descoperit şi explorat la o aplicație atât de 
complexă ? 

Interesant ar fi însă, dacă ap reuşit să ajungeţi până la acest punct să 
analizăm şi o altă opţiune care vă este pusă la dispoziţie în meniul “File” al 
aplicaţiei, şi anume opţiunea “SQL View” — “Structured Query Language” 

Dacă ven activa această opţiune, în aceeaşi fereastră în care au fost 
afişate rezultatele interogării vor fi afişate instrucțiunile VBA (limbajul de 
programare Visual Basic Access) pe care aplicaţia le-a folosit la crearea 
interogării dumneavoastră. (Cunoaşterea perfectă a semnificației 
instrucțiunilor VBA v-ar permite eliminarea tuturor paşilor făcuți în acest 


capitol pentru realizarea unei interogări, de altfel destul de simplă. 
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În tabelul următor ne propunem să explicăm instrucțiunile şi expresiile 
folosite de limbajul VBA pentru crearea interogării solicitate. 

Observaţie: Afişarea instrucțiunilor VBA de către aplicaţia Access 97 
este realizată cu majuscule, iar variabilele interne sunt afişate cu ajutorul 
expresiilor scrise după regula: prima literă cu literă mare iar următoarele din 
cadrul acelui grup, cu litere mici. 


SELECT tblJudete.NumeJudet, tblLocalitati.Localitate, tblLocalitati. Comuna 
FROM tblJudete RIGHT JOIN tblLocalitati ON tblJudete.JdJudet = 
tblLocalitati.IdJudet WHERE (((tblJudete. NumeJudet)="Suceava") AND 
((tblLocalitati.Localitate)>"Br") AND ((tblLocalitati. Comuna) Is Not Null)) 
ORDER BY tblJudete.NumeJudet, tblLocalitati.Localitate, tblLocalitati. Comuna; 


SELECT Instructiune VBA folosită pentru a preciza ca 
urmează a fi realizată o selecţie. 


tblJudete.NumeJudet, Numele coloanelor tabelelor care conţin datele 

tblLocalitati.Localitate, necesare pentru realizarea interogării. Numele 

tbiLocalitati. Comuna tabelelor trebuiesc în mod obligatoriu separate cu 
ajutorul semnului punct. 

FROM tblJudete Precizează numele tabelului (sau al interogării!) sau 
tabelelor (sau interogărilor!) sursă din care vor fi 
preluate înregistrările necesare interogării. În cazul 
nostru tabelul “tblJudete” este tabelul master care 
constituie sursa preluării datelor necesare interogării 

RIGHT JOIN tblLocalitati |Se face precizarea că tabelul master este relationat 
la dreapta printr-o relaţie de tip One to Many cu 
tabelul “tblLocalitati”. 

ON  tblJudete.ldJudet =/Realizarea relației de tip “One to Many” este 

tblLocalitati.IdJudet realizată prin intermediul câmpurilor “IdJudet” 
prezente în tabelele “tbiJudet” şi “tblLocalitati”. Pe 
primul loc în cadrul egalităţii este trecut întotdeauna 
câmpul indexat al tabelului master. 

Se precizează faptul afişarea datelor trebuie să 
îndeplinească anumite condiții 

(tblJudete.NumeJudet)="Suc |Din tabelul “tblJudete” vor fi preluate numai 
înregistrările care contin pe coloana “NumeJudet” 
expresia “Suceava”. 
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Operator logic ŞI. Prezenţa sa în cadrul unei astfel 
de selecții impune îndeplinirea, de către setul de 
înregistrări, atât a condiţiei impuse în partea stângă 
cât şi a condiţiei impuse în partea dreaptă. 
Se condiţionează în acest fel afişarea localităţilor al 
căror nume începe cel puţin cu combinaţia de 
(tblLocalitati.Localitate)>"Br|caractere Br. Folosirea operatorilor matematici 
împreună cu expresii de tip literar este posibilă 
datorită faptului că VBA efectuează o evaluare 
valorică a expresiilor literare. 
Pe lângă cele două condiții de mai sus mai trebuie 
ca în câmpurile coloanei “Comuna” din tabelul 
“tblLocalitati” să se afle cel putin un caracter. (să nu 
fie nule). Atenţie: lipsa unei informaţii dintr-un 
câmp oarecare presupune că acel câmp are o valoare 
nulă. Astfel introducerea cifrei zero într-un câmp 
numeric presupune că acel câmp are valoarea zero, 
care din punctul de vedere al VBA este diferită şi 
chiar mai mare decât valoarea Null. 
tblJudete.NumeJudet, Sunt enumerate coloanele tabelelor sursă care 
tblLocalitati.Localitate, contin datele ce trebuiesc ordonate după un anumit 
tblLocalitati. Comuna; criteriu. 
Prezenţa acestei instrucțiuni după coloanele 
criteriului de ordonare, precizează faptul că 
ordonarea va fi de tip ascendent. În cazul în care 
aceasta lipseşte VBA o consideră ca fiind implicită 
şi o execută. 


AND ((tbILocalitati. Comuna) 
Is Not Null)) 


Închiderea ferestrei interogării create în modul proiectare echivalează 
cu terminarea creării interogării. Închiderea se face în mod asemănător 
modului în care se închide orice fereastră Windows. 

După ce ati apăsat pe butonul de închidere a ferestrei interogării ven fi 
întrebaţi imediat dacă doriți să salvaţi interogarea creată pentru a putea fi 
folosită ulterior Dacă sunteți de acord apăsaţi pe butonul Yes şi atribuiti 
numele QryLocalitati interogării create. 
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$ “Query Name: 


| orytocalitati N 


2.3.2. Modul Simple Query Wizard 


Reprezintă metoda cea mai simplă pentru crearea unei interogări. 
Pentru modul intuitiv în care poate fi creată recomandăm folosirea acestei 
metode, însă pentru posibilitățile reduse pe care le oferă recomandăm 
folosirea modului de lucru “Design View”. 

Pentru crearea unei interogări prin această metodă, executați un click 
pe butonul “New” al ferestrei “Database” atunci când eticheta “Query” este 
în prim plan. În continuare după ce executați un click pe opțiunea “Simple 
Query Wizard”, nu vă mai rămâne altceva decât să executați un click pe 
butonul OK. 


Which fields espa want in your query? 


ase You can choose from more than one table or query. 


Tabiveres 


{Trabie: tbiludete i z 


Available Fields: Selected Fields: 


NumeJudet 


Fig. 2-3-2-1 
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În fig. 2-3-2-1 veţi putea să alegeţi, deschizând lista derulantă 
“Tables/Queries”, oricare dintre tabelele sau interogările existente în baza 
dumneavoastră de date pentru a fi folosită că sursă pentru noua 
dumneavoastră interogare.. Alegeţi pentru exemplul nostru tabelul 
“tblLocalitati”. Aşa cum veţi observa imediat după alegerea sursei datelor 
asistentul Wizard afişează în lista “Available Fields” numele coloanelor care 
pot furniza datele necesare interogării dumneavoastră. Pentru a stabili 
câmpurile furnizoare de date puteţi să: 

Pasul 1: Executati un dublu click pe numele câmpului din lista “Available 
Fields” 

Pasul 2: Să executaţi un singur click pe numele câmpului urmat de un click 
pe butonul “Add” notat în figură cu semnul “>”. 

Ne propunem să realiză cu ajutorul acestei metode o interogare care să 
aibă un rezultat asemănător celei din cap. 2-3-1. Pentru aceasta selectați şi 
transferați în caseta “Selected Fields”, câmpurile “Localitate” şi “Comuna”. 

Revenind la lista derulantă “Tables/Queries” deschideti-o şi alegeți 
din interiorul acesteia tabelul “tblJudete”. După apariţia câmpurilor tabelului 
“tblLocalitati” în lista “Available Fields”. Transferati în partea dreaptă 
câmpurile “IdJudet” şi “NumeJudet”. Presupunând în acest moment că 
acestea sunt singurele câmpuri sursă de care aveţi nevoie pentru construirea 
interogării dumneavoastră executaţi un click pe butonul “Next”. 

Pentru a renunţa, în cazul transferului din greşeală, la unul din 
câmpurile din lista “Selected Fields” selectaţi-l executând un click pe acesta 
şi apăsaţi pe butonul “Remove” marcat în figura 2-3-2-1 cu semnul “<”, iar 
pentru a renunța la toate câmpurile alese apăsaţi pe butonul “Remove All”, 
marcat cu semnul “<<”. 

În fig. 2-3-2-2, care va apare după apăsarea pe butonul “Next” sunteți 
invitat să precizati numele sub care va fi salvată în baza de date interogarea 
creată de dumneavoastră (pasul 1). În continuare aveţi la dispoziţie două 
opţiuni din care va trebui să alegeți: 

1: “Open te Query to View information” — lansarea în execuţie a 
interogării create pentru vizualizarea rezultatelor acesteia. 
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2: “Modify the query design” — intrarea în modul de lucru “Design 
View” pentru a putea observa modalitatea folosită de asistentul Wizard 
pentru crearea interogării şi pentru eventualele corecturi din partea 
dumneavoastră. 


hat ile do you veni fer your que? £; 


E Query S F 


That's all the information the wizard needs to create vour query. 


Do you want to open the query ormodily the query's design? 


d 


| Gë. KS d Jk Help oner 


E da m 


lodify the query design 


cates amanti an rentă eenegen 


Fig. 2-3-2-2 


Me Reet bee o 


Bifati opțiunea a doua şi apăsaţi pe butonul “Finish”. 

Interogarea va în acest moment creată şi salvată în baza 
dumneavoastră de date cu numele “tblLocalitatiQuery”, aşa cum probabil 1l- 
ati acceptat şi dumneavoastră iar pe ecran va apare interogarea afişată în 
modul de lucru “Design”. Observati că datele nu sunt ordonate după nici un 
criteriu, dar aceasta nu înseamnă că vi se interzice stabilirea criteriilor de 
ordonare. 

Editaţi interogarea creată şi intraţi în modul “SQL View”. 
Instrucţiunile folosite de asistentul Wizard pentru crearea acestei eege 
sunt mult mai puţine. 


SELECT DISTINCTROW tbiLocalitati.Localitate, tblLocalitati.Comuna, 
tblJudete.IdJudet, tblJudete.NumeJudet ' 

FROM tblJudete RIGHT JOIN tblLocalitati ON tblJudete.IdJudet = 
tblLocalitati.IdJudet; 
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Efectul instrucţiunii “DISTINCT” care apare aici, spre deosebire de 
codul sursă al interogării anterioare, este acela de a elimina din lista 
rezultatelor afişate înregistrările cu acelaşi conţinut. 

În final inchideti interogarea apăsând pe butonul “Close” situat în 
colțul dreapta sus al ferestrei în care a fost deschisă. 


2.3.3. Modul Crosstab Query Wizard 


Permite combinarea rezultatelor stocate în înregistrările tabelelor unei 
baze de date, permiţând uneori rezultate deosebit de interesante. 

Pentru a crea o astfel de interogare (care în exemplul nostru va realiza 
o centralizare a din comunele judeţelor înregistrate în baza de date), apăsaţi 
pe butonul “New” al ferestrei “Database” şi alegeți opțiunea “Crosstab 
Query Wizard” 


C rosstab Query Wizard 


Which fiekds tr don at se Available Fields: Selected Fields: 
Be tow headings? "4 ldLocalitate 
"ou can select up to three SO 


` Select fields in the order you want 
“information sorted. For example, you 
` could sort and group values by Country 
ind then Region. - 


isy 


EEE Header3 


Locataet TOTAL 


g th et: 
EEN 


Fe? 2-3-3-1 
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Pasul 1: 


Pasul 2: 


În primul pas asistentul Wizard vă cere să precizati numele 
tabelului care conţine înregistrările ce vor fi afişate pe rândurile 
interogării ce va fi creată. Alegeţi prin executarea unui click pe 
numele afişate in listă tabelul “tblLocalitati” ca sursă pentru 
rândurile interogării şi apăsaţi pe butonul “Next” pentru a trece la 
pasul următor. . 

În pasul următor va trebui să precizati numele coloanelor din 
tabelul sursă care conțin valorile ce se vor constitui în titlul 
rândurilor interogării noastre (fig. 2-3-3-1). 


Alegeţi prin executarea unui dublu click, câmpul “Localitate” din lista 
câmpurilor. În această situație orice greşeală nu mai poate fi corectată decât 
prin întoarcerea la pasul anterior — lucru pe care îl puteți realiza executând 
un click pe butonul “Back”. 

Pasul 3: În pasul următor asistentul Wizard vă cere să precizati numele 


coloanei din tabelul sursă ale cărui valori se vor constitui în 
anteturile coloanelor interogării. Stabiliti acest lucru prin 
executarea click (pe câmpul “IdJudet”) urmat de încă un click pe 
butonul “Next” (fig. 2-3-3-2). 


[ Loc = itate | EI dat | Iddudet2 
Localitate] [TOTA 


66 INIȚIERE ÎN ACCESS 


Pasul 4: În acest ecran trebuie să stabiliți expresia care va fi calculată şi 
afişată la intersecţia unei coloane şi a unui rând al interogării 
dumneavoastră. Pentru aceasta asistentul Wizard vă pune la 
dispoziţie un set de funcții standard — pe care le veţi putea 
modifica ulterior conform necesităţilor dumneavoastră. 

Avg  Calculează media aritmetică a valorilor înscrise în câmpul 

IdLocalitate. 

Count Returnează numărul înregistrărilor ne-nule din câmpul ales. 

Max  Returnează cea mai mare valoare din câmpul ales. 

Min  Returnează cea mai mică valoare din câmpul ales. 

Sum Returnează suma valorilor din câmpul ales. 

Var  Returnează variația populației dintr-un set de înregistrări. 

StDev Returnează deviația standard a unei populații dintr-un set de 

înregistrări. 

First  Returnează prima valoare a unui set de i i 


Crosstab Query Wizard 
What number de pou want calculated Fields: 


ʻi for each column and row intersection? ETEA 


- „For example, you gould calculat “1 Comuna 

i E i of the field 1d Order Amount for pias 4 CodLocaltate 
employee (corn) by county and 

"region ( (row). 

j Do you want to summarize each row? 


, E Ves. ndode aw suns, 


R = Si Ai, ? 
rah a pi JE ră 
AY A = J 
Pai | CX Wei 


aa | 
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Alegeţi pentru exemplul nostru funcţia “Count” — contorizare valori 
nenule — iar dacă doriţi însumarea valorilor de pe fiecare rând bifati caseta 
de validare “Yes, include row sums” şi apăsaţi pe butonul “Next” pentru 
continuare. 

Pasul 5: În pasul următor trebuie să precizati numele interogării create 
(acordatii numele “tblLocalitati_Crosstab1”) şi evenimentele care 
se vor desfăşura după crearea interogării — alegeți opţiunea “View 
the query” şi apăsaţi pe butonul “Finish”. 


a thlLocalitati_Crosstab2 : Crosstab Query ` 


SE : 


we ind cum se asez label din tabel. BE Ce mai sus aes judetelor este 
reprezentat de codurile numerice unice ale acestora şi afişat in antetul 
coloanelor. La nivel de rânduri, interogarea a realizat acolo unde a fost 
cazul, o centralizare a numelui localităților, fără a pierde însă apartenenţa la 
un anumit judeţ a acestora. Astfel localitatea “Vulcan” apare de două ori in 
baza de date, o dată în judeţul cu numărul unic de identificare 10, şi încă o 
dată, deşi nu este vizibilă, în judeţul cu numărul unic de identificare 22. 
Dacă veţi derula în sus informaţiile din tabel, veți observa că interogarea 
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creată a mai realizat o centralizare la nivelul judeţelor, pe primul rând al 
tabelului, a localităților oferindu-ne în acelaşi timp şi un total al numelor 
distincte de localități — ceea ce în acest caz poate fi considerat o greşeală 
destul de gravă, pentru că este admis faptul că pot exista două sau mai multe 
localități cu acelaşi nume situate însă în judeţe diferite. 

Daca ati reuşit să ajungeti la acest ecran, reveniti în modul proiectare 
(“Design View”), pentru a face corecturile necesare şi pentru a îmbunătăţi 
performanţele interogării. 

Modificaţi, conform figurii următoare (fig. 2-3-3-5), structura 
intero gării noastre. 


Prescurtare 
NumeJudet 


KS E k E Eu" ENEAN FPN AEE aT A 
i 
d 
[Group By __ |GroupBy ` |Count Count, 
kee 


După ce ati modificat interogarea conform indicatiilor din figura de 
mai sus reveniti în modul “DataSheet View” pentru a vizualiza rezultatele 
centralizate astfel, iar această dată veți aprecia acurateţea informaţiilor. 

Dacă însă în câmpul “Criteria”, sub coloana “Prescurtare”, ati 
introduce expresia “DB” de exemplu — iar în câmpul “Criteria”, sub 
coloana “Comuna”, expresia > “C”, interogarea ar afişa doar lista 
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localităţilor al căror nume începe cel puţin cu litera “C” şi care aparțin 
județului Dimbovita. 

În final salvați această interogare sub numele de 
“tblLocalitati_Crosstab”. 


2.3.4 Modul Find Duplicates Query Wizard 


Vă permite aflarea şi afişarea înregistrărilor cu acelaşi conținut. Pentru 
aceasta porniţi la crearea acesteia la fel ca în exemplul anterior apăsând pe 
butonul “New” din fereastra “Database” şi alegând de aceasta dată opțiunea 
“Find Duplicates Query Wizard”. Executati un click pe butonul OK pentru a 
trece la pasul următor. 

În acest moment vi se va cere de către asistentul Wizard să precizati 
numele tabelului sau interogării despre care presupuneti că ar conţine 
înregistrări cu un conținut asemănător. 

Pasul 1: Executati un click pe tabelul “tblLocalitati”, urmat de un click pe 
butonul “Next”. 

Pasul 2: Transferati în lista din partea dreaptă câmpurile: “Localitate” şi 
apăsaţi pe butonul “Next” pentru a trece la ultima fază a creării 
interogării. | 

Pasul 3: De regulă pe coloana unui tabel pot exista mai multe înregistrări cu 
acelaşi conținut- ceva însă le face să dețină în continuare un statut 
de înregistrare unică în cadrul aceluiaşi tabel, şi anume conţinutul 
celorlalte informaţii de pe acelaşi rând. Pentru a verifica acest 
lucru transferați în caseta din partea dreaptă (“Additional Query 
Fields”) câmpurile “Comuna” şi “IdJudet” şi apăsaţi pe butonul 
“Next”. 

În acest fel aţi ajuns la ultimul pas al creării interogării în care sunteţi 
invitat să introduceţi numele sub care va fi salvat interogarea creată. Lăsaţi 
numele pe care vi-l propune asistentul Wizard “Find duplicates for 
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tblLocalitati”, bifati, dacă nu este deja bifată opțiunea “View Data” şi 
apăsaţi pe butonul “Finish”. 

Rezultatul obţinut este suficient de sugestiv reprezentat (v. fig. 2-3-4- 
1) astfel încât să vă dati seama clar dacă ati introdus de mai multe ori 
aceeaşi înregistrare sau dacă într-adevăr înregistrările au fost corect operate. 


Aşa cum se observă din 
fig. 2-3-4-1 prezenţa a două 


Vrancea 
Suceava localităţi cu numele “Paltin” 


Suceava este normală, deoarece este 
Buzău i 


= ceva diferit în informația 
euceava 3 


Buzău înregistrată şi prezentată — şi 


Zvoriste Suceava anume judetul — dar prezenta a 
Măntei Suceava 


Dâmboviţa Ss 5 i 
Vatra Moldovit Suceava acelaşi judeţ şi cu acelaşi cod 


Vrancea poştal este mai mult ca sigur o 
Fig. 2-3-4-1 BENUA greşeală de introducere a 
Suceava 


S 
Sc? wl ail sinjal of 27 4 datelor. 


Asa cum ati observat de fiecare dată când ati început să creaţi o 


două localități “Putna” in 


interogare în lista care vă apare de fiecare atunci când intervine asistentul 
Wizard pentru crearea unei interogări mai aveţi la dispoziţie şi opţiunea 
"Find Unmatched Query” Wizard. Această opțiune pe care o veți studia fara 
ajutorul nostru vă va permite aflarea înregistrărilor “orfane” dintr-un tabel 
al unei baze de date. Înregistrările orfane în cazul nostru sunt înregistrările 
care nu au un corespondent în tabelul relationat sau care contin valori nule. 


2.4. Conversia interogărilor 


Pentru a observa în ce mod interogările create pot fi modificate astfel 
încât să servească într-o măsură cât mai mare necesitățile utilizatorilor 
deschideţi interogarea creată in cap. 2.3.1 (“QryLocalitati”) în modul de 


INTEROGĂRI (QUERY) 71 


lucru “proiectare” executând un click pe numele acesteia urmat de un click 
pe butonul “Design” de pe suprafaţa ferestrei “Database”. 

Odată intrați în modul de lucru pentru a transforma interogarea 
deschisă într-una de un alt tip, executaţi un click pe meniul “Query” al 
aplicaţiei şi observați variantele de interogare în care poate fi transformată. 


2.4.1. Trecerea la o interogare încrucişată 


Dacă aţi executat paşii din cap. anterior (cap. 2.4.) executaţi un click 
pe opțiunea “Crosstab Query” din meniul “Query”. 

În urma acestei operaţii între rândurile “Total” şi “Sort” va fi inserat 
în mod automat rândul “Crosstab”. Pentru ca interogarea să se comporte ca 
o interogare încrucişată nu uitaţi să alegeţi pe rândul “Crosstab”, expresiile 
“Column Heading”, “Row Heading” şi “Value” cel putin o singură dată şi să 
adăugaţi la interogare o nouă coloană având ca sursă aceleaşi înregistrări pe 
care le-aţi folosit pe coloana pe care ati ales expresia “Value” — valoare. 
Este indicat de asemenea ca pe coloana ce conţine valorile necesare 
interogării să nu existe nici un criteriu de sortare sau de afişare condiționată 


a înregistrărilor. În final salvaţi interogarea folosind însă un alt nume. 


: [NumeJudet (ESES ` 
Table: | tblJudete | tblLocalitati _ |tbilocalitat 


Column Heading 
: [Ascending [Ascending | | | 


"Suceava" 
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2.4.2. Trecerea la o interogare care permite crearea unui 
tabel în baza de date 


După executarea paşilor prevăzuţi la cap. 2.4. alegeți opţiunea “Make- 
Table Query”. şi în continuare precizati numele tabelului (“tblTest”) în care 
vor fi adăugate rezultatele interogării dumneavoastră. 

În urma acestei operații, la lansarea în execuție a acestei interogări, în 
baza dumneavoastră de date va fi creat un tabel cu numele “tblTest” care va 
conține toate înregistrările selectate de interogare. 

Pentru această interogare codul VBA se prezintă astfel: 


| SELECT tblJudete.NumeJudet, tblLocalitati.Localitate, 
tblLocalitati.Comuna INTO tblTest FROM tbiJudete RIGHT JOIN tblLocalitati 
ON tblJudete.IdJudet = tblLocalitati.IdJudet WHERE 


(((tblJudete.NumeJudet)="Suceava") AND (tblLocalitati.Localitate) >"Br'') AND 
((tblLocalitati.Comuna) Is Not Null)) ORDER BY tblJudete.NumeJudet, 
tblLocalitati.Localitate, tblLocalitati.Comuna; 


Observati că, spre deosebire de codul sursă al interogării 
“QryLocalitati” nu apare în plus decât instrucţiunea “INTO” urmată de 
numele tabelului care va fi creat şi în care vor fi preluate rezultatele 
interogării. 


2.4.3. Trecerea la o interogare de actualizare a 
înregistrărilor 


Interogările de actualizare sunt extrem de utile atunci când se 
intenționează modificarea după un anumit criteriu a datelor înregistrate. 
Dacă de exemplu în rezultatele preluate dintr-un tabel şi afişate, numele unei 
localităţi apare scris cu litere mici, iar dumneavoastră doriți ca numele 
localităţilor înregistrate în baza de date să fie memorat cu majuscule, atunci 
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pe rândul “Update To:”, de pe coloana “Localitati” va trebui să introduceţi 

expresia: Format( “Localitate”, >"). 

Retineti: actualizarea datelor nu se va produce în momentul vizualizării 
rezultatelor ci în momentul lansării în execuţie a interogării, iar 
operaţiunea nu este reversibilă şi în această situaţie orice greşeală 
vă va costa chiar datele înregistrate. 

LE RE RE CFR 


Field: 


| Table: tblLocalitati 
Update To: | USA ` TI 
Ciiteria: | "Suceava" :>"Br* Is Not Null 
or 
ig. 2-4-4-1 


In final nu uitaţi să salvaţi şi aceasta interogare, bineînțeles cu un alt 
nume, pentru a putea fi studiată mai târziu. 


2.4.4. Trecerea la o interogare de adăugare a înregistrărilor 


Pentru a realiza adăugarea datelor selectate cu ajutorul unei interogări 
într-un tabel oarecare al bazei de date, în afară de introducerea manuală a 
datelor, se poate apela la ajutorul unei interogări de adăugare. Deschideţi 
pentru exemplificare, interogarea “QryLocalitati”, şi din meniul “Query” 
alegeţi opţiunea “Append Query...”. Veţi fi întrebat imediat care este 
numele tabelului în care doriți să fie introduse datele selectate de interogare 
— fie acesta tabelul “xxx”, care a fost obţinut prin copierea tabelului 
“tblLocalitati” şi lipirea sub numele “xxx”. 


Field: | NumeSudet Localitate 

Table: | tbiludete tblLocalitati 

Sort: 

ppendTo: ECHT citate BEA Cornu= WE 
Xxx.” XXK.” 


IdLocalitate 
Localitate 


IdLocalitate 
Localitate 


CodLocalitate 
IdJudet 


CodLocalitate 
P| ldJudet 
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Precizati în continuare coloanele tabelului “xxx” în care vor fi 
adăugate rezultatele interogării. Aveţi grijă ca atât coloanele tabelului 
destinație cât şi coloanele interogării să fie formatate pentru acelaşi tip de 
date, în caz contrar, în momentul lansării în execuţie a acestei interogări va 
fi generat un mesaj de eroare care va bloca desfăşurarea procesului. 

În exemplul nostru coloana “Localitate” a tabelului “xxx” va primi 
datele de pe coloana cu acelaşi nume al interogării, iar coloana “Comuna” a 
tabelului “xxx” va primi datele de pe coloana “Comuna” a interogării. Se 
observă de asemenea că rezultatele din coloana “NumeJudet” a interogării 
nu vor fi adăugate în nici una din coloanele tabelului “xxx” deoarece la 
proiectarea bazei de date am considerat inutilă repetarea anumitor date în 
diferite tabele — numele judeţelor fiind memorat o singură dată pe coloana 
“NumeJudet” a tabelului “tblJudete”. 

Codul sursă al acestei interogări este: 


INSERT INTO xxx (Localitate, Comuna) SELECT tblLocalitati.Localitate, 
tblLocalitati. Comuna FROM tblJudete RIGHT JOIN tblLocalitati ON 
tbliJudete.IdJudet = tblLocalitati.ldJudet WHERE 


(((tblJudete.NumeJudet)="Suceava") AND ((tblLocalitati.Localitate)>"Br") AND 
((tblLocalitati. Comuna) Is Not Null)) ORDER BY tblJudete.NumeJudet, 
tblLocalitati.Localitate, tbILocalitati. Comuna; 


Nu uitaţi să salvaţi şi această interogare sub un nume diferit e cel al 
interogării inițiale. 


2.4.5. Trecerea la o interogare de ştergere a înregistrărilor 


Repetati paşii, alegând însă pentru crearea unei astfel de interogări 
opţiunea “Delete Query”. Retineti că la fel ca şi interogarea de actualizarea 
operațiunea de ştergere a datelor cu ajutorul interogărilor este ireversibilă, 
deci asigurati-va că datele care vor fi şterse reprezintă ceea ce aveţi 
dumneavoastră în plan. 


Capitolul 3 
FORMULARE (FORMS) 


3.1. Noţiuni generale 


O aplicaţie tipică Windows afişează unul sau mai multe ecrane pline 
cu obiecte - meniuri, butoane, liste derulante, casete de editare, etc. - cu 
care utilizatorul va interactiona pentru a controla evoluţia programului. 
Obiectele de pe suprafața acestor ecrane vor reacționa într-un mod specific 
sub acțiunea anumitor evenimente întreprinse de utilizator sau declanşate de 
o anumită secțiune a programului. Totuşi, răspunsul acestor obiecte la 
acţiunea utilizatorului este uneori unul standard pentru tipul de obiect asupra 
căruia s-a acţionat, şi chiar inadecvat cerinţelor utilizatorului. 

Pentru a produce un program care să nu fie banal, trebuie să evitati sau 
să extindeti acest comportament limitat. Puteţi face aşa ceva scriind propriul 
dumneavoastră cod şi ataşându-l evenimentului vizat al obiectului țintă. De 
exemplu evenimentul “Click” al unui buton de comandă ar putea să conțină 
o singură instrucțiune VBA: “End”. Atunci când se va executa un click pe 
acest buton, va fi declanşat codul asociat acestui eveniment astfel încât în 
cazul de fata, programul se va încheia. 

O aplicaţie Microsoft Access 97 are următoare structură: ` 

Aplicația 

E (Forms) 
Controale 
Rapoarte (Reports) 
Controale 
Ecrane (Screen) 
Comenzi (DoCmd) 
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. În Access 97 formularele, rapoartele şi controalele alcătuiesc bazele 
vizuale ale unei aplicații Windows. Aspectul şi funcţionalitatea acestor 
controale pot fi controlate şi îmbunătățite prin modificarea proprietăților 
(care determină caracteristicile unui obiect) şi metodelor (care reprezintă 
procedurile sau funcţiile care informează un obiect în legătură cu modul de a 
efectua o anumită acţiune). Modificarea proprietăţilor şi metodelor unui 
obiect poate fi modificată cu ajutorul liniilor de cod folosindu-se notația cu 
punct. 


3.1.1. Proprietăţi 


Stricto senso o proprietate este un atribut nominalizat al unui obiect 
programabil. Proprietăţile definesc caracteristicile unui obiect — cum ar fi 
culoarea, dimensiunile, poziția pe ecran — sau uneori modul în care se 
comportă un obiect, dacă, de exemplu, o casetă de text acceptă sau nu linii 
multiple sau dacă un element este activ la un moment dat. 


3.1.2. Metode 


Pentru a defini un obiect nu este suficientă menționarea proprietăţilor 
sale, deoarece acestea nu sunt singurele sale caracteristici. O definiție 
completa a unui obiect presupune pe lângă aceste caracteristici şi o 
enumerare a activităţilor pe care obiectul le poate realiza. În programarea 
orientată spre obiecte o metodă este o procedură asociată sau încorporată, un 
bloc de instrucţiuni în cod VBA, care poate fi invocat pentru a asocia o 
anumită acţiune unui anumit obiect. Spre deosebire de alte funcții şi 
proceduri ale limbajului VBA, metodele trebuie să fie asociate unui obiect 
pentru a se afla într-un anumit context. 
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3.1.3. Notaţia cu punct 


Atunci când se lucrează in cod , referirea la proprietăţile şi metodele 
unui obiect se face utilizând notația cu punct. Sintaxa pentru stabilirea 
proprietăţii unui obiect este: 

Obiect.Proprietate = Valoare 

Să presupunem că avem un formular cu numele MyForm şi că dorim 
să stocăm valoarea curentă a proprietății “culoare de fond”, apoi să 
modificăm această culoare. Putem folosi pentru aceasta următoarele linii de 
cod: 


VecheaCuloare = MyForm.BackColor 
Am stabilit în acest moment culoarea de fond. 


MyForm.BackColor = QBColor(Red) 
Am stabilit noua culoare de fond —roşu 


MyForm.BackColor = VecheaCuloare 
Am revenit la vechea culoare. 


3.1.4. Convenții de notație 


Lucrul în cod presupune lucrul cu foarte multe variabile, proprietăți şi 
metode. Denumirile acestora pot deveni incomode la un moment dat dacă nu 
veţi stabili un set de reguli pentru numele acestora care să vă permită sa 
recunoasteti rapid tipul obiectului la care se face referire. Convenţia unanim 
acceptată este aceea de a acorda un prefix din trei litere mici; în felul acesta 
veți şti imediat la ce tip de obiect se face referire. 
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[Case detent (TextBox) 1 


Meniu (Menu) 
Butoane de optiuni (OptionButton) 
Caseta de validare (CheckBox) 
Caseta de validare (ListBox) 
Casetă combinată (ComboBox) 
Cadru (Frame) 


magie Ama me 
[Figura geometrici Shape) ste] 
[nie iy RR 
[Orologin Time) JL e 


m 
bl 
xt 

st 

8 

hp 

in 

mr 


T 
M 
O 
C 
L 
C 
F 
Im 
S 
L 
T 


3.2. Tipuri de controale 


În general controalele disponibile în Access 97 sunt disponibile prin 
intervenția unor asistenți Wizard care vă ajută să le configurati si să le 
atribuiti anumite combinaţii de linii de cod. De multe ori este suficient 
datorită intervenţiei acestor asistenţi, să recunoasteti doar pictogramele 
ataşate acestora pentru a putea crea un formular care să rezolve destul de 


bine necesităţile unui utilizator destul de pretentios. 
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ER Casetă combinată 


Nume control 


Control 


GH 


E Casetă de validare 
Casetă cu listă 


Buton de comandă 
ID |Caseta imagine Picture Box 


Lista Tabbed 


Eg Dreptunghi (Rectangle) Bară de derulare 


Asistentii Wizard nu sunt însă suficient de “inteligenți” pentru a crea 
controale suficient de sofisticate. În astfel de situaţii se impune intervenția 
programatorilor sau a utilizatorilor pentru ataşarea de secvențe de cod 
controalelor unui formular. Instrucţiunile de cod VBA şi sintaxa acestora 
vor fi tratate pe larg în capitolul 5 al acestei lucrări. În continuare ne vom 


Bară de progres 


concentra doar asupra folosirii asistentilor pentru crearea unor formulare 
funcționale . 


3.3. Crearea unui formular 


Înainte de a porni la crearea unui formular sau a unui raport trebuie să 
aveţi foarte clar în minte problemele pe care acesta trebuie să le rezolve şi 
modul în care doriți afişarea datelor în cadrul formularului. În funcţie aceste 
lucruri veţi putea şti ce tabele sau interogări trebuie să folosiți pentru 
formularul dumneavoastră. În acest capitol vom crea diverse tipuri de 
formulare care vor rezolva, sau măcar vor încerca să rezolve aceeaşi 
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problemă: afişarea pe ecran a localităţilor şi judeţelor înregistrate în baza de 
date după un anumit criteriu. 

Dacă aveţi deschisă pe ecran aplicația Access 97 împreună cu 
fereastra bazei dumneavoastră de date, pentru a crea un formular nou 
recomandăm deschiderea meniului “Insert” al aplicaţiei şi alegerea opțiunii 
“Form”. 

Puteţi declara 
crearea unui nou 
formular şi prin 


apăsarea pe 

i SutoForm: Datasheet butonul “New” de 
E EE f ‘i Chart Wizard zi 

creates a tabular Form. PivotTable Wizard pe suprafata 


i Fig. 3-1-1 ; Teresie Ve 
TS dacă în prim 


za 


planul ferestrei se 


i Choose the table or query where a 
$ the E s data comes ëm E = afla 


Răspunsul imediat al asistentului Wizard va solicita precizarea 


eticheta 


a 
IS 


tabelului sursă a datelor formularului. Deocamdată nu veți putea preciza 
decât un singur tabel ca sursă a datelor, însă pe parcurs veți putea să stabiliți 
un criteriu mai complicat pentru crearea sursei datelor acestui formular. 
Alege-ti ca sursă principală a datelor tabelul tblJudete aşa cum am procedat 
şi noi în fig. alăturată. În continuare va trebui să precizati tipul formularului 
pe care doriţi să îl creeze asistentul Wizard pentru dumneavoastră. Alegeţi 
deocamdată opțiunea “AutoForm: Tabular”. 

Această fereastră va constitui punctul de plecare pentru construirea 
tuturor formularelor bazei de date, dar şi pentru construirea tuturor 
formularelor necesare pentru exemplificarea lucrării, de aceea la crearea 
celorlalte formulare nu vom menţiona modalitatea de declarare a unui nou 
formular. 
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R Microsoft Access 


H File Edit View Insert Format Records. Tools Window Help 


le-ai say sea #1 5[@ ela aile 
tbijudete 
i: idJudet Prescurtare Nume-Judet 
Alba 
_ Arges 
Arad ` 


Bucureşti 


Bacău 
Bihor 
Bistriţa Năsăud 


Brăila 


WlO NIDIA AJ oO) | Nw les 


Botosani 


=à 
OH 


Braşov 


11 Buzău 


Record: 14 | + if 1 > | va || of 42 


3.3.1. Modul Autoform: Columnar 


Dacă aţi apăsat deja pe EST 


butonul Ok din fig. 3-1-1 atunci, || Ble Edt view Insert Format Records Tools Window He 


ae 


după câteva momente de lucru i Say SL E me 
din partea asistentului pe ecran va] PIMPE” 


apare primul dumneavoastră 
formular în forma prezentată în 
fig. 3-1-2. În acest tip de formular | 
înregistrările sunt aranjate pel {Recor BZ T Huss 7 


82 INIȚIERE ÎN ACCESS 


verticală, de-a lungul marginii din stânga a paginii, în ordinea în care apar în 
definiția tabelului. Toate câmpurile sunt etichetate. La un moment dat, este 
afişată o singură înregistrare; există şi butoane de navigare, care asigură 
deplasarea de la o înregistrare la alta. 


3.3.2. Modul Autoform: Tabular 


Înregistrările sunt aranjate într-o “grilă” dispusă pe suprafaţa paginii 
vizibile. Câmpurile sunt etichetate. Formularul afişează mai multe 
înregistrări simultan, iar dacă este necesar include şi butoane de navigare şi 
bare de derulare orizontale sau verticale. 


3.3.3. Modul Autoform: Datasheet 


Modalitatea de crearea a unui astfel de formular este identică 
modalităţii prin care au fost create celelalte două tipuri de formulare 
Columnar şi Tabelar. Înregistrările sunt reprezentate la fel ca un tabel în 


modul de afişare Datasheet. 
&, Microsoft Access 


ete e en „Insert Format Records Tools "ie 
He ES > ae 


Numele de câmpuri se 
„ găsesc în partea superioară a 


fiecărei coloane. Sunt afişate 
& tbiudete 


mee 


toate înregistrările care încap în 
formular, linie cu linie; de 
asemenea sunt create butoane 


de navigare şi bare de derulare 
Bucureşti 


orizontale şi verticale. 


5 BC Bacău 
DE 6 BH anaran Bihor 
7 BN Bistriţa Năsăud 
_8 BR Brăila 
ABT Botoşani 
10: BY Braşov 


11 BZ Buzău 


x 
Record: 1 KIE ji T [onyx oF e A 
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3.3.4. Modul Form Wizard 


Reprezintă un set util de casete de dialog în care sunteţi întrebat de 
unde provin datele, cum doriți să le aranjați în cadrul formularului şi ce 
imagine grafică doriți să apară în fundal. 

Cu ajutorul acestei metode puteţi crea foarte rapid un formular cu un 
aspect plăcut, parcurgând un număr relativ mic de paşi. 

Dezavantajul acestei metode este lipsa controlului direct asupra 
machetei şi asupra legăturilor controalelor grafice din formular. Form 
Wizard nu creează casete combinate, casete cu liste sau liste de opţiuni şi nu 
inserează imagini grafice sau chenare. Dacă nu doriți să ramaneti la 
rezultatele schitate de asistentul “Expert Wizard” va trebui să modificaţi 
formularul creat. 

Form Wizard 


“Which fields do pou want an your form? 
You can choose from more than one table or query. 


E Tables/Queries: 
| Table: tbudete ttt 
` Available Fields: Selected Fields: 


me Prescurtare ` 
NumeJudet LS) 
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Dacă ati ales opțiunea “Form Wizard” pentru crearea formularului, în 
primul pas va trebui să precizati numele tabelului sursă şi câmpurile din 
acesta care conţin datele pe care le doriți afişate în formular. 

Pentru exemplul nostru transferați toate câmpurile din lista “Availabie 
Fields” în lista “Selected ields” şi apăsaţi pe butonul “Next”. 

În pasul următor va trebui să precizati tipul formular pe care asistentul 
Wizard îl va crea pentru dumneavoastră. Pentru a stabili acest lucru aveţi la 
Pa a un gup de opţiuni asemănător cu cel din figura următoare: 


| ic ” Va trebui în acest moment să alegeți opțiunea 
Columnes E. A 
Së e | “Justified” deoarece variantele celelalte vor crea for- 
1d Tabular : S : A : 
e mulare identice ca formă cu cele create în capitolele 
i N, Datasheet 


anterioare. Puteti face acest lucru executand un click pe 
butonul alb din fata fiecărei opţiuni sau puteți 
păsa o Sere de taste formată din tasta ALT şi una din literele 
subliniate (tastă scurtătură) din cadrul fiecărei opţiuni. (în situația de fata 
ALT si J). La fel ca în cazul celorlalți asistenți Wizard puteţi renunța 
oricând la proces apăsând pe butonul “Cancel” sau puteţi reveni la unul din 
paşii anteriori apăsând pe butonul “Back”. Treceti însă la pentru continuare 
la pasul următor pa pe butonul “Next”. 

Alegerea unei imagini de fundal pentru 
| formularul creat se face prin alegerea uneia din 


expresiile din interiorul listei. Dacă doriți ca şi în 
formularul dumneavoastră să apară aceeaşi imagine 


Ëretzgetzaagl de fundal ca şi în exemplele folosite de noi alegeți 
Pattern opţiunea “Clouds”. 

Standard e e Sa mi 
Stone Alegerea uneia din opțiunile corespunzătoare 


unei anumite imagini de fundal va fi urmată de apa- 
ritia imaginii alese în caseta de previzualizare din 
geng partea stângă. 


Odată aleasă imaginea dorită nu vă mai rămâne decât să apăsaţi pe 
butonul “Next”. 
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Denumiti formularul creat frmtblJudeteWizard, bifati opţiunea “Open 
the form view or enter information” şi executați un click pe butonul 
“Finish”. 

Formularul creat pe această cale va arăta asemeni celui din figura 
alăturată. Chiar dacă nu vă satisfac pe deplin variantele propuse până acum 
de asistenții Wizard, nu disperaţi, veţi putea mai târziu să modificaţi atât 
aspectul cât şi modul p 
în care se realizează 
prelucrarea datelor de | 
către formulare. : 


3.3.5. Modul Design View 


Este modul de lucru cel mai complet pentru crearea formularelor 
aplicaţiei dumneavoastră pentru că vă este permisă modificarea oricărui 
element pe care aplicaţia Access 97 vi-l pune la dispoziţie. Acest mod de 
lucru poate fi folosit şi pentru editarea formularelor existente. 


A 409 Lem mn DAY. stega Nasau i o; 
467 Teaca 4427 Bistrita Năsăud 
73 Budesti 4459 Bistrita Năsăud 
Bistrita Năsăud 


Bistrita Bârgăulu a 
Argeş Budesti 

Arad 

Bucureşti 

Bacău 


Hunedoara Ti A 
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Pentru a înţelege modul în care funcţionează aceste formulare ar trebui 
să stiti ca datele înregistrate în diferitele tabele ale bazei de date concură 
pentru realizarea unei interfeţe grafice (formulare în cazul nostru). 
Modalitatea în care datele sunt afişate şi prelucrate în formulare este la 
îndemâna utilizatorului. Înainte de a trece la realizarea formularului de mai 
sus va trebui să facem câteva precizări. 


3.3.5.1. Sectiunile unui formular 


Form Header: 
ol: jUrbourd 
| 


Detail (Detalii). 

Această secțiune a formularului este cea în care apar datele pentru 
fiecare înregistrare din sursa de date. În formularul creat datele depuse în 
această secţiune vor apare “suprapuse” — aranjate unele sub altele — 
putându-se trece însă de la o înregistrare la alta cu ajutorul butoanelor de 
navigare. Secţiunea Detalii, spre deosebire de celelalte este afişată implicit 
în toate formularele pe care le creaţi sau pe care le editati. Ascunderea 
acestei secțiuni poate fi realizată atunci când interesele utilizatorilor o cer, 
prin micşorarea dimensiunilor sale până la mărimea unei linii, care nu va fi 
observată în formular. 
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Form Header/Footer (Antetul / Subsolul de formular). 

Aceste secţiuni nu apar in mod implicit atunci când editati un 
formular, iar dacă aveţi nevoie de ele va trebui să solicitati afişarea lor, prin 
deschiderea meniului “View” al aplicaţiei şi bifarea opțiunii Form 
Header/Footer. În zona de antet de formular se introduc de regulă, informaţii 
care nu se modifică de la o înregistrare la alta, cum ar fi: numele unității sau 
instrucțiuni de utilizare a formularului. Zona de subsol a formularului 
conţine de regulă, informaţii despre data şi ora la care a fost creat 
formularul, date centralizate, totaluri, informaţii despre autori. 


Page Header/Footer (Antetul/Subsolul de pagină). 

Aceste secțiuni au rolul de a insera întreruperi de pagină în formulare 
sau în rapoarte. În cazul formularelor utilitatea lor nu este apreciată, întrucât 
rare sunt situaţiile în care un formular este format din mai multe pagini. 
Anteturile de pagină sunt folosite pentru a repeta datele care trebuie să apară 
în partea de sus a ecranului. 

Redimensionarea acestor secțiuni poate fi realizată cu ajutorul mouse- 
ului prin agățarea marginilor acestora şi mutarea într-o altă poziţie. 


3.3.5.2. Caseta cu instrumente 


Toolbox Al Caseta cu instrumente este elementul cel mai puternic de 
lira creare a diferitelor controale din cadrul unui formular. 
Activarea sau inhibarea ei atunci când editati un formular se 


face prin deschide-rea meniului “View” şi activarea sau 
dezactivarea opțiunii “Toolbox”. Butoanele “Select Objects” 

şi “Control Wizards” nu plasează controale în formular. 
Butonul Select Objects, | fy atunci când este apăsat vă permite 
selecţia controalelor create în formulare, iar butonul Control 
Wizard, ÎN atunci când este apăsat permite intervenția 
asistentilor Wizard pentru crearea anumitor controale. Butonul 
"More Controls” Ka afişează o listă cu toate controalele 
Active X care sunt instalate în sistemul dumneavoastră. 
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Butoanele “Rectangle” EI şi \ “Line” vă permit introducerea unor 
elemente grafice simple (dreptunghiuri, linii) în formularul creat. Butonul 
“Page Break” "E! permite forțarea începerii unei noi pagini într-un formular 
sau raport. Pentru a vedea explicaţiile celorlalte controale din caseta cu 
instrumente revedeti tabelul de la punctul “Tipuri de controale” al acestui 
capitol. 

Inserarea acestor controale în formularul creat se face prin apăsarea pe 
butonul corespunzător de pe caseta cu instrumente, urmată de revenirea în 
formular şi trasarea cu ajutorul butonului stâng al mouse-ului a unui chenar 
în care va fi inserat controlul selectat. 


EPSPs 


3.3.5.3. Paleta de culori 


Functioneaza doar in modul de editare a formularelor sau rapoartelor 
şi permite, prin acțiunea combinată a mai multor controale, modificarea 
proprietăţilor de culoare sau de transparență ale obiectelor. Proprietatea 
implicită sau selectată de utilizator este afişată pe controlul corespunzător. 


ak Controlul Fill/Back Color — 
 Mensperent | | 
ÎN transparent Back Color IE 
BEB e@aene aes 

ZOOS EAR E 
ifetet-fttfsl 
DUDU BL 


As 


Culoare de umplere — specifică ce 
culoare va fi folosită pentru fundal sau 
pentru controlul selectat. 


n: n = må sl ri = = Controlul Font/Fore Color — 
R D s "fe n în Culoarea fonturilor — stabileşte culoarea 
ECOSDSED fonturilor pentru controalele care 


Sak Enan D folosesc text. 
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ZII 


ETC 
HOD G UE 
EDO m CI 
DCI LI 


Controlul Line/Border Color — 
Culoarea de chenar — stabileşte liniei de 
contur a unui control din cadrul unui 
formular. 


Controlul Line/Border Width — Stabileşte grosimea 
liniei de contur 

Controlul Special Efect — Stabileşte efectul artistic 
3D care va fi aplicat unui control. 


Pentru aplicarea culorilor sau efectelor speciale unor controale din 


cadrul formularului curent, selectați controlul ale cărui proprietăți doriți să 


le modificaţi, deschideţi paleta de culori sau de efecte speciale şi executați 
un click pe culoarea sau efectul dorit. 


3.3.5.4. Proprietățile elementelor 


În Access 97 fiecare control are proprietăţi specifice, care pot fi 


vizualizate şi modificate cu ajutorul casetei Properties. Afişarea casetei 


poate fi reali-zată prin exe-cutarea unui dublu click pe oricare dintre 


controalele formularului. Proprietăţile controalelor sunt grupate în patru 


categorii: Format, Data, Event, Other. Grupul All înglobează toate 


proprietăţile unui control aranjate în ordine alfabetică. 
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af List Box: ListaJudete 


Format | Dată | Event | other | al | ooo ; 
Column Count...., § — pt AE a 
Column Heads,..., No de cal 
| Column Widths «e ; Gcm;0.874em;2.143em H 
Visible. ssar kane Yes S 3 
Display When..... „ Always A a E 
Dei BECHER 6CM aa. 
TOP RE 0,998cm eegene 3 
Ve, E, 598cm uiti AA 
Height . .3.%......6.709cm_ ý 
Back Color, «sse au 116777215 


Special Effect ....... Shadowed 
Border Style... a. Solid 
Border Width...... 3pt 
Border Color’...... 0 
Fore Color....,.,, 0 
«a MS Sans Serif 


tease res 


Format — încorporează toate proprietățile de prezentare a unui control: 
dimensiuni, pozitia in cadrul formularului, culori, efecte, fonturi. 
Explicatia si rolul celor mai importante dintre acestea sunt: 
Column Count Numărul de coloane ale controlului 
Column Heads Existenţa antetului de coloane 
Column Widths Lăţimea coloanelor 


Visible Vizibilitatea în cadrul formularului. 

Left Distanţa fata de marginea stângă a formularului. 
Top Distanţa. faţă de bara de titlu a formularului. 
Width Lăţimea controlului. 

Back Color Codul numeric al culorii de fundal 

Special Efect Efectul 3D aplicat controlului. 

Font Color Culoarea fontului folosit de control. 

Font Name Numele fontului controlului. 


Data — înglobează toate proprietățile referitoare la sursa înregistrărilor care 
vor fi gestionate de un control. 
Control Source Numele câmpului din tabelul sau interogarea sursă 
ale cărui valori vor afişate de acel control. 
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Row Source Type Tipul sursei înregistrărilor Table/Query — tabel sau 


Row Source 


Bound Column 


Default Value 


Enabled 


Locked 


interogare — Value List — Valoare declarată de 
utilizator sau preluată ulterior din alte surse — Field 
List — numele câmpurilor din tabelul sau interogarea 
sursă. 

Numele tabelului sau interogării sursă sau definiţia 
în cod VBA a sursei înregistrării. 

Numărul implicite care conține datele care vor fi 
afişate dacă nu se fac referiri exprese la valorile altor 
coloane. 

Valoarea implicită care va fi afişată în momentul 
activării acelui control. 

Starea de activare a controlului. Setarea acestui 
control la valoarea No va bloca orice acţiune a 
utilizatorului asupra sa. 

Activează sau inhibă posibilitatea modificării datelor 
afişate de acel control. 


Event — Evenimente. Conţine lista tuturor evenimentelor care pot fi 
aplicate sau la care poate reacţiona acel control. În câmpurile din 


partea dreaptă 


se vor menționa numele macroinstructiunilor sau 


procedurilor care vor fi executate la declanşarea acelui eveniment. 


Before Update 
After Update 
On Enter 

On Exit 

On Got Focus 
On Lost Focus 
On Click 


Înainte de modificarea valorii controlate. 
După modificarea valorii controlate. 

La intrarea în acel control 

La părăsirea controlului. 

La captarea focusului de către control. 
La pierderea focusului de către control. 
La executarea unui click pe control. 


On Double Click La executarea unui dublu click. 


On Mouse Down In momentul apăsării nuia din butoanele mouse- 


ului. 
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On Mouse Move În 


momentul trecerii mouse-ului deasupra 


controlului. 


On Mouse Up La eliberarea butonului apăsat al mouse-ului. 


On Key Down La apăsarea unei taste. 


On Key Up La eliberarea tastei apăsate. 
On Key Press La apăsarea unei taste sau combinaţii de taste. 


Other - Alte proprietăţi. Conţine un set de proprietăţi specifice ferestrelor 


Windows. 
Pop Up 


Modal 


Cycle 


Menu Bar 


Toolbar 


Shortcut Menu 


Dacă este setată la valoarea “Yes” atunci 
formularul va fi menţinut în prim planul 
ecranului chiar dacă la un moment dat nu el va 
fi formularul curent. 

Atribuirea valorii “Yes” acestei proprietăți 
inhibă deschiderea altor formulare (sau 
efectuarea saltului la alte formulare) până la 
închiderea sa. 

Forteaza deplasarea focusului numai între 
controalele înregistrărilor obiectului sursă (All 
Records), numai între controalele înregistrării 
curente (Current Record) sau numai între 
controalele înregistrărilor paginii curente 
(Current Page). 

Numele barei de meniu a utilizatorului care va fi 
afişată pe toată perioada lucrului în formularul 
curent. 

Numele barei de unelte care va fi afişată pe 
ecran la deschiderea formularului. 

Valoarea “No” inhibă apariția meniului de 
context la executarea unui click cu butonul drept 
al mouse-ului. 
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Shortcut Menu Bar Numele meiului de context care va afişat la 


Help File 

Tag 

Name 

Status Bar Text 


Control Tip Text 


Tab Index 


executarea unui click cu butonul drept al mouse- 
ului. 

Numele fişierului de help ataşat formularului, 
care va fi deschis la apăsarea tastei F1. 

Conţine o valoare care poate fi memorată (şi 
folosită) împreună cu controlul căruia îi este 
atribuită. 

Numele controlului. 

Expresia care fi afişată pe bara de status a 
formularului la activarea controlului. 

Expresia care fi afişată pe ecran în momentul 
staționării cursorului mouse-ului deasupra 
controlului. 

Numărul de ordine al controlului în cadrul 
formularului. 


Grupul All - Conţine toate proprietățile controlului. 


3.3.5.5. Controalele specifice Access 97 


Pentru a crea o interfață grafică (în cazul nostru un formular) care să 


satisfacă exigenţele majorităţii utilizatorilor este suficient să cunoaşteţi 


modul în care funcționează (şi caracteristicile!) câtorva dintre controalele 


specifice sistemului de operare Windows. Aranjarea acestora în cadrul 


formularului, relațiile dintre acestea precum şi comportamentul sau 


răspunsul la comenzile unui utilizator sunt întru totul la îndemâna 


dumneavoastră. Prin urmare, odată creată baza de date, nu vă mai rămâne 


decât să stabiliți, de comun acord cu utilizatorii aplicaţiei create, modalitatea 


în care vor fi prezentate înregistrările pe ecran în vederea prelucrării. 
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Etichetele sunt casete de text transparente cu rol de transmite un 
anumit mesaj utilizatorului. Transparenţa acestora creează senzaţia “lipirii” 
textului de suprafaţa formularului. De regulă ele afişează numele unui 
control. Fără a afecta datele din tabelul sursă. Conţinutul mesajului transmis 
de acestea nu poate fi modificat decât de acțiunea instrucțiunilor în cod 
VBA. 

Câmpurile de editare (Text Box) sunt folosite pentru afişarea 
înregistrărilor. Utilizatorului îi este, de regulă, permisă intrarea în aceste 
câmpuri în vederea modificării sau introducerii datelor. Opţional acestor 
câmpuri li se ataşează o etichetă cu un mesaj explicativ. 


& Forme : Form 


BE ei 


Etichetă Butori 


Text3: [Camp de editare EH di | | 
am + Grup de o — | E 
Combo: [Caseta combinata -] | e fOpliineai `" | | 


Coes 


Lista Elernent 1 
Elernent 2 
Element 3 


Element 4 


 “Eticheta buton radio 
Ié Eticheta caseta de validare 


Casetele combinate (Combo Box) sunt folosite pentru afişarea (pe 
una sau mai multe coloane) unui set de înregistrări selectate şi ordonate 
după un anumit criteriu. Sursa înregistrărilor o constituie, de regulă, o 
interogare sau coloanele tabelului sursă. Combo-urile sunt compuse dintr-un 
câmp de editare şi un buton de deschidere marcat de un triunghi cu vârful 
orientat în jos. Marele avantaj oferit de acest control (dat fiind că poate afişa 
seturi de sute sau mii de înregistrări) este economia de spațiu pe suprafața 
formularului, deoarece, în poziția închis, el nu afişează decât o singură 
valoare din întregul set de înregistrări pe care îl controlează. Deschiderea 
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acestui control poate fi realizată prin apăsarea tastei F4 sau prin executarea 
unui click pe butonul de deschidere. Optional si acestor controale li se poate 
ataşa o etichetă. 

Casetele cu listă (List Box) îndeplinesc acelaşi rol ca şi casetele 
combinate, diferența constând în faptul că setul de înregistrări pe care îl 
controlează este afişat într-o casetă permanent deschisă. Pentru alegerea 
unui anumit element din setul de înregistrări afişat este suficientă executarea 
unui click pe acesta. 

Butoanele radio (Radio Button) apar de regulă în grupuri de 2-3 şi 
sunt folosite pentru a “forța” utilizatorul să aleagă o singură opțiune dintr-un 
set pus la dispoziţie de program. Alegerea uneia din opțiunile care se ascund 
în spatele acestor butoane radio se face prin executarea unui click fie pe 
butonul radio fie pe eticheta explicativă a butonului sau prin apăsarea 
combinației de taste ALT + tasta subliniată (tastă scurtătură) din cadrul 
etichetei explicative. În funcţie de acțiunea utilizatorului butoanele radio pot 
lua două valori logice (True = Adevărat, când butonul este bifat şi False = 
Fals când butonul nu este bifat). 

Casetele de validare (Check Box) permit alegerea, spre deosebire de 
butoanele radio) mai multor opțiuni din cadrul unui set pus la dispoziţie de 
program. Casetele de validare admit şi o a treia valoare Null atunci când 
caseta de validare se colorează în gri. 

Din punct de vedere matematic valorile acceptate pentru casetele de 
validare sunt: -1 = pentru valoarea True, 0 = pentru valoarea False. Valoarea 
logică Null nu are corespondent matematic, de aceea recomandăm folosirea 
variabilelor logice pentru evitarea unor erori de prelucrare care ar putea 
genera bloca funcţionarea programului dumneavoastră. 

Butoanele de comandă (Command Button) arată şi se comportă ca 
nişte butoane care pot fi apăsate pe un formular. La executarea unui click pe 
un astfel de buton, acesta dă impresia că este apăsat, după care revine la 
starea inițială. Butoanele de comandă pot să conțină text sau imagini, pot să 
aibă orice dimensiune şi sunt folosite pentru lansarea în execuţie a unor 
secvenţe de cod VBA cu rezultate diferite în funcționarea aplicaţiei. 
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Eticheta de comutare (Tab Control) oferă o metodă intuitivă de 
comutare între mai multe formulare. Este utilă în situația în care există 
foarte multe informaţii despre o singură entitate. Controalele Tab au 
proprietăți specifice şi fiecare etichetă dintr-un control Tab are propria 
pagină de proprietăți. Dacă în modul de vizualizare Form se execută un 
click pe una din etichetele acestui control “pagina” etichetei 
corespunzătoare va fi afişată în prim plan, acoperind paginile celorlalte 
etichete. 

Grupul de opţiuni (OptionGroup) Este cel mai indicat tip de control 
pentru a prezenta utilizatorului toate opţiunile disponibile., permițând 
selectarea unei singure opţiuni din întregul grup. În cazul utilizării unui grup 
de opțiuni acesta este “legat” de câmpul de date şi apoi este completat cu 
unul sau mai multe dintre următoarele tipuri de controale: 

- butoane de comandă 
- butoane radio 
- casete de validare 

Controalele Linie (Line) şi Dreptunghi (Rectangle) sunt folosite 
pentru înfrumusețarea formularelor 

Controalele Cadru de obiect neasociat (Unbound Object Frame) 
Cadru de obiect asociat (Bound Object Frame) şi Imagine (Image). 
Aceste trei controale sunt folosite pentru afişarea unor obiecte binare pe un 
formular. De obicei obiectele sunt documente realizate cu editoare de texte, 
imagini, sunete, foi de calcul tabelar, etc. Majoritatea programelor Windows 
pot să exporte obiecte cu ajutorul tehnicii OLE (Object Linked Embedded), 
iar programul Access 97 poate să afişeze astfel de obiecte şi să folosească 
pentru editarea lor aplicaţia în care au fost create. 

Obiectele neasociate (Unbound Object Frame şi Image) nu se află în 
nici o relaţie cu datele înregistrate, astfel că modificările operate la nivelul 
bazei de date nu vor afecta aceste obiecte. 

Obiectele asociate sau neasociate pot fi “legate” (Linked) sau 
înglobate (Embedded) într-un formular. Avantajul înglobărui unui obiect 
într-un formular este creat de faptul că nu mai este necesară copia acelui 
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obiect pe discul calculatorului dumneavoastră. Un obiect legat stabileşte o 
referință în cadrul bazei de date cu obiectul însuşi, care trebuie să rămâne 
stocat într-un fişier de pe disc. 

Controlul Separator de Pagină (Page Break). Dacă un formular este 
prea lung, puteţi să marcați un punct în care pagina pare că se rupe atunci 
când folosiţi tastele Page Up, Page Down. În cazul în care formularul este 
mai lung decât fereastra în care este afişat, Access 97 va afişa în mod 
automat o bară de derulare verticală pentru a permite navigarea în cadrul 
acestuia. Dacă este prezent un control Page Break tasta Page Down va 
redesena formularul astfel încât partea superioară a acestuia să apară imediat 
după separatorul de pagină. Acest tip de controale sunt extrem de utile în 
cazul rapoartelor. 


3.3.5.6. Crearea unui formular 


Formularul pe care ne propunem să-l realizăm va trebui să arate ca în 
figura următoare şi să îndeplinească următoarele sarcini: 

Să afişeze lista judeţelor şi lista localităţilor unui judeţ în controale de 
tip casetă cu listă. 

Să afişeze o casetă cu listă care să evidentieze localităţile selectate de 
utilizator. 

Să permită adăugarea, ştergerea, modificarea, sortarea şi tipărirea 
datelor înregistrate. 

Instrucţiunile în cod VBA precum şi explicaţiile acestora vor fi oferite 
în finalul acestui subcapitol. 
Pasul 1: Executati un click pe meniul Insert al aplicației Access 97, urmat 

de un click pe opțiunea Form. 
- Executati un click pe opțiunea Design View, pentru a intra direct în 

modul de lucru proiectare, iar din caseta combinată care conţine numele 
tabelelor şi interogă-rilor bazei de date nu alegeţi nimic. Formularul pe care 
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îl vom crea în continuare este destul de complicat şi sursa înregistrărilor sale 
va fi definită mai târziu. În final apăsaţi pe butonul OK. 


New Form Fa 
on DER Ee EECH : iDesion view ` ww 
| Form Wizard 
d i AutoForm: Columnar 

| HutoForm: Tabular 
perce 1 | AutoForm: Datasheet 
„Create á ed form without `. Lat Wizard 
Si eed a Wes „ |PivotTable Wizard 
D C $ 
| | | 
Leg e D d å 
Choose the table ör query where g = 


_ the object's data comes from: | 
a] zs. 


Pasul 2: În formularul nou creat, cu numele generic "Form", nu va fi 
vizibilă decât secțiunea “Detail”. Afisati antetul şi subsolul 
acestui formular executând un click pe meniul View al aplicaţiei 
Access 97 şi un click pe opțiunea “Form Header/Footer”. 

În cazul în care riglele orizontale şi verticale, reţeaua ortogonală şi 
bara de unelte nu sunt vizibile pe ecran la intrarea în modul de lucru 
proiectare, deschideţi meniul View şi bifati, pe rând, ca în figura alăturată, 
următoarele opţiuni: Ruler, Grid, Toolbox. 

Redimensionarea sectiunilor formularului poate fi realizată prin 


agatarea marginilor şi deplasarea acestora în direcția 


Tv Ruler: Paw a i 

K CN dorită atunci când la cursorul mouse-ului apare una 
CH | din următoarele forme: î + dE 

ae Toolbox 


CL În situaţia în care caseta de proprietăţi a unui 
control lipseşte din cadrul formularului executați un dublu click pe controlul 
ale cărui proprietăți doriți să le modificaţi. 

Redimensionati secțiunile Form Header, Detail şi Form Footer astfel 
încât formularul dumneavoastră să arate ca în figura următoare. 
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l & Fol : Fom Patel ES 


ee oer cr Or Ce Oe Ce Ce CS ES EE E 


eA tic o E 


Pentru a evita intervenţia asistentilor Wizard în activitatea de creare a 
controalelor formularului, asigurați-vă că butonul “Control Wizard” de pe 
bara de unelte nu este apăsat (în caz contrar executați un click pe el). 

Dat fiind că este aproape imposibilă aprecierea dimensiunilor unui 
formular după o simplă fotografie, aşa cum apare în această lucrare, vom 
preciza valorile proprietăţilor formularului nostru care stabilesc dimensiunea 
şi poziţia acestuia fata de celelalte elemente ale ecranului. l 

Proprietățile din cadrul grupului Format al formularului: 

Retineti: expresiile scrise cu caractere înclinate reprezintă explicaţiile 
efectelor proprietăților şi nu valorile acestora, deci nu le 
introduceți în câmpurile de editare. 

Width ` 15.298 cm înălțimea formularului 

Min Max Buttons None nu vor fi afişate butoanele de minimizare şi 

maximizare pe bara de titlu a formularului. 

Whats This Button Yes se afişează butonul de help senzitiv pe bara de 


titlu. 
Proprietățile din cadrul grupului Format al secțiunii Form Header: 
Height 8.108 cm lățimea zonei de antet (implicit şi a formularului). 


Back Color -2147483633 culoarea de fundal a zonei de antet. 
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Creați pentru început trei casete cu listă. Acest lucru îl puteţi realiza 
apăsând butonul “List Box” de pe bara de unelte şi trasând în interiorul 
secțiunii Form Header un dreptunghi care va reprezenta conturul casetei cu 
listă. Odată cu crearea controalelor aplicaţia Access 97 va crea şi etichetele 
explicative ale casetelor cu listă (List, List2, List4) situație nedorită de 
această dată. Pentru a le şterge executaţi un click pe eticheta listei şi apăsaţi 
tasta Delete. 

Modificaţi în continuare proprietăţile acestor casete cu listă după cum 
urmează: 

Pentru prima listă: 

Din grupul de proprietăţi Format: 
Column Count 3 numărul de coloane afişate în interiorul listei. 


Column Widths 0cm;0.874cm;2.143cm lățimea coloanelor. 

Left 0.6cm dist. fata de marginea din stânga a 
formularului. 

Top 0.998cm dist. față de marginea superioară a 
formularului. 

Width 3.598cm înălțimea casetei.. 

Height 6.709cm lățimea casetei. 


Special Effect Shadowed caseta umbrită. 

Border Width 3 pt grosimea în puncte a conturului casetei. 
Din grupul Other: 
Name ListaJudete numele castei cu listă. 

Proprietăţile celei de-a doua liste diferă de proprietățile primei liste 
doar prin următoarele: 


Left 4.298cm 
Top 0.998cm 
Width 2.725cm 
Height 6.698cm 


Column Count 4 
Column Width Ocm;2.886cm;0cm;0cm 
Name ListaLocalitati 
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Proprietăţile celei de-a treia liste diferă de proprietăţile primei liste 
prin următoarele: 


Left 7.399cm 
Top 1.099cm 
Width 3.598cm 
Height 3.80lcm 
Special Effect Sunken 
Column Count 1 


Column Width 2.54cm 
Row Source Type Value List Tipul sursei înregistrărilor. 
Name ListaSelectii 

Creati in continuare trei butoane de comanda folosind tehnica 
anterioară (click pe butonul corespunzător controlului, pe care îl creaţi, de 
pe bara de unelte, revenire în zona de lucru a formularului în care va fi afişat 
controlul şi trasarea chenarului corespunzător conturului formularului). 
Aceste butoane le vom folosi ulterior pentru adăugări, ştergeri şi sortări de 
date. 

După crearea acestor butoane modificati-le proprietățile după cum 
urmează: 


Pentru primul buton: 
Left 7.497cm 
Top 5.099cm 
Width 3.519cm 
Height 0.499cm a 
Caption Adaugă Expresia afişată pe suprafața butonului. 
Name BtnAdauga 
Pentru cel de-al doilea buton: 
Left 7.497cm 
Top 5.598cm 
Width 3.519cm 
Height 0.63 lcm 


Caption Şterge 
Name BtnSterge 
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Pentru cel de-al treilea buton: 


Left 7.497cm 
Top 6.198cm 
Width 3.519cm 
Height 0.63 1cm 
Caption Sortează 
Name BtnSorteaza 


Creați în continuare o casetă combinată cu următoarele proprietăți: 
Left 7.497cm 


Top 6.698cm 
Width 3.501cm 
Height 0.409cm 

Row Source Type Value List 
Row Source Ascendent 
Name CboTipsortare 


În sfârşit ultimul control pe care trebuie să-l creaţi pentru a obţine un 
formular identic, cel puţin ca formă, cu cel prezentat de noi, este un buton 
de comandă cu următoarele proprietăți: 


Left 7.497cm 
Top 7.099cm 
Width 3.519cm 
Height 0.63 lcm 
Caption Tipăreşte 
Name BtnTipareste 


Pasul 3: Pentru a salva formularul creat, deschideti meniul file al aplicatiei 
Access 97 si alegeti optiunea Save din acesta. Veti primi imediat 
un mesaj de avertizare asemănător cu cel din figura alăturată, in 
care trebuie să precizati numele formularului pe care l-ați creat. 
Denumiţi-l deocamdată Forml, aşa cum ne propune şi figura. 

„ După salvarea formularului, 

"ef na închideți-l pentru a putea 
„Fort Memes  — Bel trece la faza următoare a 
za eh creării unui formular — 
Ce ul NEE supe, al adăugarea codului. 


Capctaltul 4 


CODUL VBA 


Notiuni generale 


Scrierea codului pe ecran presupune organizarea clara a ideilor, 
importante elemente referitoare la sintaxă. 

În acest capitol ne propunem crearea unor secvențe de cod care să 
trateze evenimente referitoare la acţiunea butoanelor de comandă şi a 
controalelor formularelor. Vor fi folosite secvențe de instrucţiuni destul de 
dificile cu scopul de a vă familiariza cu modalitatea de combinare a 
diferitelor secvenţe de cod pentru realizarea scopurilor propuse. 

Principalul avantaj al programării în cod VBA este standardizarea pe 
care o asigură întregului pachet de aplicaţii Microsoft Office (Word, Excel, 
Power Point, Outlook). 


4.1. Proceduri 


Întregul cod VBA este scris în proceduri, care sunt blocuri de 
instrucţiuni cu început şi sfârşit bine determinat. În cadrul modulelor 
procedurile nu pot fi imbricate, însă, în general, ele pot apela alte proceduri, 
iar un cod bine scris constă din multe proceduri scurte, uşor de înțeles, care 
se apelează între ele. Acest tip de programare poartă numele de programare 
modulară, iar codul este uşor de înţeles şi de întreţinut. 

În limbajul VBA există două tipuri de proceduri: 

Subrutinele sunt proceduri care nu returnează nici o valoare. Ele au 
un început bine definit (o instrucțiune Sub) şi un sfârşit bine definit (o 
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instrucțiune End Sub). Subrutinele pot avea parametri, incluzând numele şi 
tipul parametrului pe prima linie a subrutinei, ca în exemplul următor: 

Sub Calculează (Număr As String) 

Funcţiile sunt proceduri care returnează o valoare procedurii care le-a 
apelat. Ele au un început bine definit (o instrucţiune Function) şi un sfârşit 
bine definit (o instrucţiune End Function). Prima linie a unei funcţii 
defineşte tipul de dată al valorii pe care o va returna. Funcţiile pot avea 
parametri, incluzând numele şi tipul parametrului pe prima linie a funcţiei, 
ca în exemplul următor: 

Function Calculează (Număr As Long) As Long. 


4.2. Instrucţiuni în cod VBA 


Instrucţiunile în cod VBA reprezintă baza funcționării programelor 
create de utilizatori de aceea este extrem de importantă cunoaşterea acestora 
şi a sintaxei lor. În continuare vom prezenta instrucţiunile cele mai des 
folosite la realizarea programelor în Access 97. 


4.2.1. Funcţii pentru conversia datelor 


Asc returnează un număr întreg reprezentând codul ANSI al primului 
caracter din şirul analizat. 
Sintaxa comenzii este: Asc(şir) 

CCur converteşte o expresie într-o valoare de tip Currency, aşa cum este ea 
definită de sistemul de operare. 
Sintaxa comenzii este: Ccur(expresie) 

CDate converteşte o expresie într-o valoare de tip dată calendaristică. 
Sintaxa comenzii este: CDate(expresie) 

CDbl converteşte o expresie într-o valoare de tip Double. 
Sintaxa comenzii este: CDbl(expresie) 

CInt converteşte o expresie într-o valoare de tip Integer. 
Sintaxa comenzii este: CInt(expresie) 
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Chr returnează un caracterul asociat al unui număr în cod ANSI. 
Sintaxa comenzii este Chr(număr). 
Format returnează un şir formatat în concordanţă cu instrucţiunile de 
formatare. 
Sintaxa comenzii este: Format(expresie[, format]) 
Val returnează valoarea unui număr conţinut într-un şir de tip text. 
Sintaxa comenzii este: Val(şir). 


4.2.2. Funcţii pentru controlul fluxului 


For ... Next - incrementează un contor. 

Sintaxa comenzii este: 

For contor = val de start To val sfârşit [Step pas] 

[comenzi VBA] 

[Exit For] 

[comenzi VBA] 

Next [contor] 

Funcţia For...Next are următoarele parti: 

contor Obligatorie. Variabilă numerică folosită pentru contorizare. 

Poate fi de tip logic sau de tip sir. 

Val de start Obligatorie. Valoarea iniţială a contorului. 

Val sfârşit Obligatorie. Valoarea finală a contorului. 

pas Optional. Valoarea de incrementare a contorului la 
fiecare parcurgere a ciclului. Daca nu este specificata 
se presupune că este egală cu 1. 

comenzi Optional. Una sau mai multe comenzi VBA incluse în 
ciclul For ... Next care vor fi executate de un număr 


de ori. 


For Each ... Next - Repetă un grup de instrucţiuni pentru fiecare element al 
unui şir sau al unei colecții. 
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Sintaxa comenzii este: 

For Each element In grup 

[comenzi] 

[Exit For] 

[comenzi] 

Next [element] 

Unde: 

element Obligatoriu. Reprezintă elementele unui grup sau colecţii 
care se analizează. 

grup Obligatoriu. Numele grupului din care fac parte obiectele 
de analizat. 


If ... Then ... Else - Execută condiționat de valoarea unei expresii un grup 
de comenzi VBA. 
Sintaxa comenzii este: 
If condiție Then 
[comenzi] 
[ElseIf condiție - n Then 
[comenzi] ... 
[Else 
[comenzi]] 
End If 


Select Case - Execută condiționat de valoarea unei expresii un grup de 
comenzi VBA. 
Sintaxa comenzii este: 
Select Case condiție 
[Case condiție - n 
[comenzi]] ... 
[Case Else 
[comenzi]] 
End Select 
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Do...Loop - Asigură executarea unui set de comenzi VBA atât timp cât este 
îndeplinită o anumită condiție, sau până la îndeplinirea unei 
condiţii. 

Sintaxa acestei comenzi este: 

Do [{While | Until) condiție îndeplinită] 
[comenzi] 

[Exit Do] 

[comenzi] 

Loop 

Este permisă şi folosirea unei sintaxe de tipul: 
Do 

[comenzi] 

[Exit Do] 

[comenzi] 

Loop [{While | Until) condiție îndeplinită] 


On Error - Activează sau inhibă acțiunea unei rutine de tratare a erorilor. 

Această comandă poate avea una din următoarele sintaxe: 

On Error GoTo numărul liniei de cod 

În cazul apariţiei unei erori se execută un salt la linia de program 
specificată. 

On Error Resume Next 

Se execută un salt necondiționat la linia de program imediat următoare 
celei care a penerat eroarea. 

On Error GoTo 0 

Dezactiveaza orice rutina de tratare a erorilor. 


End - Asemănătoare instructiunii End Function sau End Sub. 
Exit - Folosită ca “Exit Function” sau “Exit Sub”. 
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4.2.3. Funcţii matematice 


Abs(număr) Returnează valoarea absolută a unui număr. Dacă numărul 
conţine valoarea Null, funcția va returna valoarea Null, iar 
dacă argumentul funcției nu a fost initializat va fi returnată 
valoarea 0. 

Exemplu: 

Dim Număr 

Număr = Abs(50.3) ' Returnează 50.3. 
Număr = Abs(-50.3)  ' Returneaza 50.3. 


Atn(număr) Returnează o valoare de tip Double, reprezentând arctangenta 
acelui număr exprimată în radiani. Argumentul acestei funcții 
poate fin un număr de tip Double sau orice expresie numerică. 

Exemplu: 
Dim pi 
pi =4 * Atn(1) " Calculul valorii numărului pi. 


Cos(număr) Returnează o valoare de tip Double, reprezentând cosinusul 
unui unghi exprimat în radiani. 


Exemplu: 

Dim Unghi, Secantă 

Unghi = 1.3 ' Defineşte unghiul în radiani. 

Secantă = 1 / Cos(Unghi) ' Calculează secanta unghiului. 


Exp(număr). Returnează o valoare de tip Double, reprezentând valoarea 
numărului e (baza logaritmilor naturali) ridicată la o putere. 
Dacă argumentul acestei funcții este mai mare de 
709,782712893 va fi generată o eroare de calcul. Valoarea 
numărului e este aproximată la 2,718282. 
Exemplu: 
Dim Unghi, SinusHip 
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Unghi = 1.3 ' Defineşte unghiul în radiani. 
SinusHip = (Exp(Unghi) - Exp(-1 * Unghi)) / 2' Calculeaza sinusul 
hiperbolic. 


Int(numar). Returnează partea întreagă a unui număr. 
Exemplu: 
Dim Număr 
Număr = Int(99.8) ' Returnează 99. 
Număr = Int(-99.8) ' Returnează -100. 


Log(număr). Returnează valoarea logaritmului natural al unui număr 

Exemplu: 

Log n(x) = Log(x) / Log(n) “Formula pentru calculul logaritmului în 
baza n al unui număr x. 

Dim Unghi, Logaritm 

Unghi = 1.3 ' Definesc unghiul în radiani. 

Logaritm = Log(Unghi + Sqr(Unghi * Unghi + 1)) ' Calculez inversul 
sinusului hiperbolic. 


Rnd(număr) Returnează o valoarea aleatoare de tip Single. Argumentul 
funcţiei trebuie să fie o număr de tip Single sau orice expresie 
numerică. 

Exemplu. 

Dim NumarAleator 

NumărAleator = Int((6 * Rnd) + 1) “Generez o valoarea aleatoare 
cuprinsă între 1 şi 6. 


Sin(număr) Returnează o valoare de tip Double, reprezentând sinusul unui 
unghi exprimat în radiani. 
Exemplu: 
Dim Unghi, Cosecanta 
Unghi = 1.3 ' Definesc unghiul în radiani. 


110 INIȚIERE ÎN ACCESS 
Cosecanta = 1 / Sin(Unghi)  ' Calculez cosecanta unghiului. 
Sqr(numar). Returnează radicalul de ordinul doi al unui număr. 
Exemplu: 
Dim Radical 


Radical = Sqr(23) ' Returnează 4.79583 152331272. 
Argumentul funcţiei trebuie să fie un număr de tip Double. 


4.2.4. Funcţii pentru declararea variabilelor 


Aceste funcţii sunt: 


Funcţia Tipul Datelor 
DefBool litera[,litera] . . . Boolean 
DefByte litera], litera] . . Byte 
DeffInt litera[, litera] . . . Integer 
DefLng litera], litera] . . . Long 
DefCur litera[, litera] . . . Currency 
DefSng literal, litera] . . . Single 
DefDbl literal, litera] . . . Double 
DefDec litera[, litera] . . . Decimal 
DefDate literal, litera] . . . Date 
DefStr lizera[, litera] . . . String 
DefObj literal, litera]... Obiect 
DefVar litera[, litera]... Variant 


Sunt folosite la nivelul modulelor pentru declararea tipului de date al 
variabilelor, argumentelor procedurilor $i pentru returnarea tipului functiilor 
sau procedurilor al căror nume începe cu litera specificată. Aceste funcţii au 
efect doar în interiorul modulelor în care au fost introduse. 
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Exemplu: i 
Deflnt A-K ‘Impun tipul Integer pentru toate variabilele al căror nume 
începe cu una din literele de la A la K. 
DefStr L-P ‘Impun tipul String pentru toate variabilele al căror nume 
începe cu una din literele de la L la P. 
DefDbl T “Impun tipul Double pentru toate variabilele al căror nume 
începe cu litera T (sau t). 


Comanda Dim - Este folosită pentru declararea explicită a unor variabile şi 
alocarea spațiului necesar acestora. 

Sintaxa comenzii: 

Dim [WithEvents]  numevari([dimensiune])] [As [New] zip] 
[, [WithEvents] numevar[([dimensiune])} [As [New] zip]] . . . 

Expresiile din paranteze drepte au caracter opţional, depinzând de 
contextul în care sunt folosite, iar argumentele funcției au următoarele 
semnificaţii: 

WithEvents Cuvânt sau simbol recunoscut de VBA care specifica 
faptul că numevar este o variabilă care conţine referințe către un obiect, 
folosit pentru a răspunde evenimentelor ataşate obiectelor altor aplicaţii 
externe. 

numevar Numele variabilei. 

dimensiune Dimensiunea unei variabile de tip şir (max. 60). 
Argumentul dimensiunii are următoarea sintaxă: 

Minim To maxim. Implicit Minim are valoarea 0. 

New Cuvânt sau simbol recunoscut de VBA care activează crearea 
implicită a unui obiect nou. 

tip Tipul variabilei. 

Exemplu: 

Dim AnyValue, MyValue ' AnyValue şi MyValue sunt declarate ca 
fiind de tip Variant cu valoare implicită 
Null. 
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Dim Number As Integer ' Declaraţie explicită a unei variabile de tip 
Integer.. 
Dim AnotherVar, Choice As Boolean, BirthDate As Date 
| ' Declaraţii multiple pe o singură linie. 
AnotherVar este de tip Variant deoarece a 
fost omis tipul acesteia în declarație. 
Dim DayArray(50) ' DayArray este un şir de tip Variants cu 51 
elemente indexate, de la 0 la 50, cu valoarea 
minimă implicită 0. 
Dim Matrix(3, 4) As Integer ' Matrix este un şir bidimensional de tip 
| Integer. 
Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double ' MyMatrix este un sir 
tridimensional de tip Double cu Minim si 
Maxim explicit. 
Dim BirthDay(1 To 10) As Date' BirthDay este un şir de date calendaristice 
indexate de la 1 la 10. 


ReDim - folosită la nivelul procedurilor pentru realocarea spațiului necesar 
variabilelor. 

Sintaxa comenzii: 

ReDim [Preserve] varname(dimensiune) [As type] ... 

Unde: 

Preserve Optional. Cuvânt sau simbol recunoscut de VBA 
folosit pentru păstrarea datelor unui şir declarat la schimbarea ultimei 
dimensiuni. 

varname numele variabilei. 

dimensiune Dimensiunea unei variabile de tip şir (max. 60). 

type tipul variabilelor.. 


Set - Atribuie proprietăţile unui obiect unei variabile sau proprietăţilor unui 
alt obiect. 
Sintaxa comenzii este următoarea: 
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Set objectvar = {[New] objectexpression | Nothing) 
Unde: 
objectvar Numele proprietăţii sau variabilei.. 
New Cuvânt sau simbol recunoscut de VBA care activează crearea 
implicită a unui obiect nou. 
objectexpression numele obiectului, variabilei, 
proprietății unui alt obiect căruia i se atribuie o proprietate. 
Nothing Anulează efectul de asociere al objectvar cu obiectul speci- 
ficat. 
Exemplu: 
Dim YourObject, MyObject, MyStr 
Set MyObject = YourObject ' Atribuim proprietățile obiectului 
Y ourObject, obiectului MyObject.. 
YourObject.Text = "Hello World" ' Atribui expresia “Hello World” 
proprietăţii Text a obiectului 


YourObject. 

MyStr = MyObject.Text ' Atribuim explicit (doar) proprietatea 
Text a obiectului MyObject. 

Set MyObject = Nothing ' Întrerup viitoarele referiri la propri- 


etatile obiectului sursă YourObject.. 


Public - folosită la nivelul modulelor pentru declararea variabilelor şi 
alocarea spațiului necesar acestora. 
Sintaxa comenzii: 
Public [WithEvents] numevar[([dimensiune])] [As [New] tip]. . . 


Private - folosită la nivelul modulelor pentru declararea variabilelor 
specifice unui modul sau unei proceduri şi pentru alocarea spaţiului 
necesar acestora. 

Sintaxa comenzii: 
Private [WithEvents] numevar[([dimensiune])] [As [New] tip]. . . 
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Spre deosebire de variabilele declarate cu ajutorul comenzii Public, 
cele declarate cu ajutorul acestei instrucțiuni au valabilitate şi există doar în 
interiorul modulului sau procedurii în care au fost declarate. 


Static - folosite la nivel de proceduri pentru declararea variabilelor şi 
alocarea spaţiului necesar acestora. Variabilele declarate cu ajutorul 
acestei comenzi îşi păstrează valorile între două apeluri ale 
procedurii care le foloseşte. 

Sintaxa comenzii: 
Static varname[([subscripts])] [As [New] type]... 


Const - folosite pentru declararea constantelor care vor fi folosite în locul 
variabilelor literare. 
Sintaxa comenzii: 
[Public | Private] Const numeconstantă [As tip] = expresie 


4.2.5. Funcţii pentru controlul datei 


Date - Returnează o valoare de tip Variant reprezentând data curentă a 
sistemului. 
Sintaxa comenzii: 
Date = Data 
Exemplu: 
Dim MyDate 
MyDate = February 12, 2001# ' Stabilesc noua valoare a datei. 
Date = MyDate ' Schimbăm data sistemului 


Now - Returnează o variabilă de tip Variant reprezentând data şi ora 
curentă a sistemului. 
Exemplu: 
MyDate = Now(Q 
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Time - Returnează o variabilă de tip Variant reprezentând valoarea orei 


curente a sistemului. 
Exemplu: 
MyTimel = Time() 


*Determin ora curentă a sistemului. 


MyTime2 = Time() + (1/24) 


4.2.6. Functii pentru returnarea si prelucrarea sirurilor 


Aceste funcţii returnează De o valoare de tip Variant fie una de tip 


String. 


Chr$ - Returnează o variabilă de tip String conţinând caracterul asociat 
codului ANSI menţionat. 


Exemplu: 

Dim MyChar 
MyChar = Chr(65) 
MyChar = Chr(97) 
MyChar = Chr(62) 
MyChar = Chr(37) 


CurDir$ - Returnează o 
curentă. 
Exemplu: 


' Returnează A. 
' Returnează a. 
' Returnează >. 
' Returnează %. 


variabilă de tip Variant reprezentând calea 


Presupunem că unitatea curentă este “C:”, directorul curent este 


“C:\Windows”, şi calea 
Documents” 

Dim MyPath 

MyPath = CurDir 


curentă spre o altă unitate este: “D:\My 
N 


' Returnează "Ci". 


MyPath = CurDir("C")' Returnează "C:\Windows ". 
MyPath = CurDir("D")' Returnează "D:\My Documents". 
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Dir$ - Returnează o variabilă de tip String reprezentând numele unui 
fişierelor sau folderelor care au calea şi atributele specificate de 
utilizator. 

Sintaxa comenzii: 

Dir[(cale[, atribute])] 

cale Opţional. O expresie de tip String, reprezentând numele unui 
fişier, folder sau al unei unități de memorie. Dacă nu este 
specificată nici o cale de căutare va fi returnat un şir de 
lungime zero. 

atribute Opţional. Constantă sau expresie numerică care însumează 
atributele specificate. 

Denumirile constantelor şi valorile acestora: 


Denumire Valoare Descriere 

vbNormal 0 Normal 

vbHidden 2 Ascuns 

vbSystem 4 Fişier de sistem 

vbVolume 8 Eticheta de volum a unei unități de 


memorie. 
vbDirectory 16 Folder sau director. 


Exemplu: 

Dim Fişier, Cale, Nume 

Fişier = Dir("C:\WINDOWS\WIN.INI") ‘Returnează numele fişierului 
WIN.INI dacă acesta există. 

Fişier = Dir("C:\WINDOWS\*.INI") “Returnează numele primului fişier 
găsit în directorul WINDOWS cu 
extensia INI. 

Fişier = Dir “Repetând comanda va fi returnat 
numele următorului fişier cu 
extensia INI. 
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Fişier = Dir("*.TXT", vbHidden) ' Va fi returnat primul fişier găsit 
care are extensia TXT şi atributul 
Hidden. 
Pentru a afişa lista tuturor directoarelor din directorul rădăcină al unei 
unități de memorie recomandăm următoarea secvenţă de instrucțiuni: 
Cale = ey ' Stabilesc calea implicită. 


Nume = Dir(Cale, vbDirectory) Preiau numele primului 
director din rădăcina unităţii C:. 

Do While Nume <> "7 

' Deschid un ciclu de execuţie care va dura atâta timp cât variabila 
Nume va avea o .valoare diferită de Null. 

If Nume <> "." And Nume  ".." Then 
' Dacă Nume este diferită de . şi .. atunci: 
If (GetAttr(Cale & Nume) And vbDirectory) = vbDirectory Then 
“Dacă obiectul obţinut din compunerea căii şi a numelui este 

un director atunci: 


Debug.Print Nume  ' Tipăreşte numele directorului. 
End If ' it represents a directory. 
End If 


Nume = Dir ' Atribui nouă valoare variabilei Nume.. 
Loop “ Trecem la următorul director din rădăcină. 


Error$ Returnează un mesaj de eroare care corespunde unui număr 
de cod de eroare. 

Sintaxa comenzii este: 

Error(număr_ eroare) ‘unde număr eroare poate fi orice număr 
cuprins între şi 65535. 

Exemplu: 

Dim Număr_Eroare ‘ 

For Numar_Eroare = 61 To 64 

Debug.Print Error(Număr_Eroare) ' Tipăresc numărul erorii. 
Next Număr_Eroare 
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Hex$ - Returnează o variabilă de tip String reprezentând valoarea unui 
număr în sistemul de numerație hexazecimal. 
Sintaxa comenzii: Hex$(număr). 


Input$- Returnează o variabilă de tip String conţinând caracterele unui 
fişier deschis în modul Input sau binar. 
Sintaxa comenzii: 
Input(număr, [#]numéarfisier) 
Unde: 
număr Obligatoriu. Orice expresie semnificând numărul 
caracterelor returnate. 
numărfişier Obligatoriu. Orice număr de fişier. 


Exemplu: 
Dim MyChar 
Open "TESTFILE" For Input As #1' Deschid fişierul TESTFILE pentru 
preluare date acordându-l numărul generic 


L. 

Do While Not EOF(1) ' Lansez un ciclu de execuție care va fi 
încheiat în momentul ajungerii la sfârşitul 
fişierului. 

MyChar = Input(1, #1) ' Preiau primul caracter din fişierul deschis 
în variabila MyChar. 

Debug.Print MyChar ' Tipăresc valoarea preluată în MyChar. 

Loop <€ Reluam operațiunea de preluarea a 
conținutului fişierului. 

Close #1 ' Închid fişierul la preluarea ultimului 
caracter.. 


LCase$ - Transformă caracterele unei expresii de tip String în litere mici. 
Sintaxa comenzii: 
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IL Case(expresie) 
Exemplu: 
Dim Majuscule, Minuscule 
Majuscule = "Hello World 1234" ' Definesc şirul care va fi convertit.. 
Minuscule = LCase(UpperCase) ' Convertesc conţinutul variabilei 
Majuscule în litere mici şi-l atribui 
variabilei Minuscule, astfel că la o 
eventuală apelare a acesteia va fi returnat 
şirul "hello world 1234". 


Left$ - Returnează o valoare de tip Variant sau String , conţinând un 
număr specificat de caractere din partea stângă a şirului analizat. 
Sintaxa comenzii: 
Left(şir, lungime) 


Exemplu: 
Dim Expresie, Şir 
Expresie = "Hello World" ' Definesc şirul. 
Şir = Left(Expresie, 1) ' Returnează "H". 
Şir = Left(Expresie, 7) ' Returnează "Hello W". 
Şir = Left(Expresie, 20)  ' Returnează "Hello World". 


LTrim$ - Returnează un şir de tip Variant sau String format din 
caracterele şirului original cu excepția spaţiilor incluse în partea 
stângă a acestuia. 

Sintaxa comenzii: 
Ltrim(Sir) 


Exemplu: 
Dim SirPrelucrat, Sir 


Sir=" <-Trim-> ' Iniţializez şirul. 
ŞirPrelucrat = LTrim(Sir) ' Returnează "<-Trim-> ". 
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Mid$ - Returnează un şir de tip Variant sau String format dintr-un număr 
specificat de caractere ale şirului inițial. 
Sintaxa comenzii: 
Mid(sir, start. lungime]) 


Exemplu: 
Dim sir, Primul, Ultimul, Mijloc 
şir = "Mid Function Demo" ' Definesc şirul. 
Primul = Mid(sir, 1, 3) ' Returnează "Mid". 
Ultimul = Mid(sir, 14, 4) ' Returnează "Demo". 
Mijloc = Mid(sir, 5) ' Returnează "Function Demo". 


Right$- Returnează o valoare de tip Variant sau String, conţinând un număr 
specificat de caractere din partea dreaptă a şirului analizat. 
Funcționarea este asemănătoare comenzii Left cu excepția faptului 
că numărarea caracterelor încape din partea dreaptă a şirului initial. 


RTrim$- Returnează un şir de tip Variant sau String format din caracterele 
şirului original cu excepția spaţiilor incluse în partea dreaptă a 
acestuia. 


Space$ - Permite introducerea unui număr specificat de spaţii. 
Sintaxa comenzii: 
Space(număr) 


Exemplu: 
Dim Şir 
Şir = Space(10) “Definesc un şir format din 10 spații 
Şir = "Hello" & Space(10) & "World" ' Inserez cele 10 spaţii între două 
şiruri. 
Str(număr) *Converteşte o valoare de tip numeric într-una de tip şir. 
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Trim$ “Returnează un şir format din caracterele şirului original 
fără spaţii. 
Ucase Converteste în majuscule caracterele unui şir. V. Lease. 


4.2.7. Funcţii uzuale 


MsgBox _ - Afişează un mesaj într-o casetă de dialog, aşteaptă un răspuns 
din partea utilizatorului şi returnează valoare de tip Integer 
indicând butonul care a fost apăsat. 

Sintaxa comenzii: 

MsgBox(mesaj[, buton] [, titlu] [, fişier de help, context]) 

mesaj Obligatoriu. Expresia care fi afişată în caseta de 
dialog. Lungimea maximă a mesajului este de 1024 
caractere. Dacă mesajul are mai multe linii, acestea 
pot fi separate apelând codul ASCII al tastei Enter 
(Chr(13)) sau al sfârşitului de linie (Chr(10)). 

buton Optional. Expresie numerică reprezentând suma 
valorilor numărului de butoane şi tipului acestora, al 
iconitei folosite, valorii butonului implicit şi tipului de 
casetă de mesaj. Implicit este 0. 

titlu Opţional. Expresia afişată pe bara de titlu a casetei de 
mesaj. Implicit este dat de numele aplicaţiei. 

fişier_de_help Opţional. Numele fişierului de help care va fi deschis 
la solicitarea referintelor unui obiect. 

context Opţional. Expresie numerică pentru identificarea 
indexului fişierului de help. 

Valorile returnate de butoanele casetei de mesaj: 


Constantă Valoare Descriere buton 
vbOK l OK 
vbCancel 2 Cancel 


vbAbort 3 Abort 


122 INIȚIERE ÎN ACCESS 


vbRetry 4 Retry 
vblgnore 5 Ignore 
vbYes 6 Yes 
vbNo H No 
Exemplu: 
Dim mesaj, titlu 
Titlu = “Costineşti ...” “Definesc conținutul titlului casetei de 


mesaj 

Mesaj = "Staţiunea vacantelor!”  *Definesc conţinutul mesajului care va fi 
afişat. 

MsgBox Mesaj, vbOkOnly, Titlu ‘Caseta va conţine mesajul, titlul şi un 
buton OK. 


InputBox - Afişează o casetă de mesaj, aşteaptă răspunsul utilizatorului şi 
returnează un şir introdus de utilizator. 
Sintaxa comenzii: 
InputBox(mesaj[,titlu] [,text_implicit] [,Xpos] [, Ypos] 
[,fisier_de_help, context]) 
Unde 
Xpos reprezintă distanţa pe orizontală a casetei de mesaj fata de 
marginea din stânga a formularului principal. 
Ypos reprezintă distanţa pe verticală fata de marginea superioară a 
formularului principal. 


Exemplu: 
Dim Şir As String, Mesaj As String 
Mesaj = "Enter your name." “Definesc mesajul care va fi afişat. 
Şir = InputBox(“Sir’, “titlu”, 2000, 2000) “Preiau textul care va fi introdus 
de utilizator în variabila Şir. 
MsgBox "Hello, " & Sir “Afişez expresia Hello si textul introdus de 
utilizator. 
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IsNull - Returnează o valoare de tip Boolean indicând faptul că variabila 
respectivă are o valoare validă. 
Sintaxa comenzii: 
IsNuli(expresie) 


Exemplu: 

Dim Mesajl, Mesaj2, Variabilă ‘definesc variabilele necesare 

Mesaj = “Variabilă nulă!” 

Mesaj? = “Variabilă definită!” 

Variabilă = InputBox (“Introduceţi o valoare!”) “Las utilizatorului 
posibilitatea de a defini valoarea variabilei 
Variabilă 

If IsNull(Variabila) Then 

MsgBox Mesajl “Dacă utilizatorul nu a introdus nimic în 
câmpul de editare al casetei de dialog 
anterioare sau dacă a apăsat pe butonul 
Cancel va fi afişat conţinutul variabilei 


Mesajl 

Else 

MsgBox Mesaj2 “În caz contrar va fi afişat conţinutul 
variabilei Mesaj2 

End If 


Len - Returnează o valoare de tip Long reprezentând numărul de caractere 
al unei expresii. 
Sintaxa comenzii: 
Len(expresie) 


Exemplu: 

MsgBox Mesaj2 & “ conţine “ & Len(Mesaj2) & “ caractere” 

“Afişez o casetă de mesaj care va conţine. expresia: “Variabilă 
definită! conţine 20 caractere” 
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4.3. Adăugarea codului 


Adăugarea codului VBA, controalelor unui formular, este secțiunea 
cea mai importantă a programării în VBA, fără de care formularele aplicaţiei 
dumneavoastră nu vor satisface niciodată pe deplin cerinţele utilizatorilor. 
Pentru adăugarea codului va trebui să cunoaşteţi semnificațiile 
instrucţiunilor folosite care însă face obiectul capitolului 4. În această 
secțiune vom prezenta doar modalitățile de adăugare sau de modificare a 
codului ascuns în spatele diferitelor controale. 

Deschideţi formularul Formi pe care l-aţi creat mai devreme in 
modul de lucru Design şi executaţi un dublu click pe unul din controalele 
formularului pentru a vă asigura prezența pe ecran a casetei de proprietăți. 
Pentru a fi în ton cu exemplul dat de noi . 


SE SÉ cé | 


[View Insert: Format “Tools Wi Window Help 
KM Design View SI ESCH € ae SEA 
ES Form view ` 

E E] Datasheet View 


| «|, 
l 


Fäi properties 


=) aa, pego 
Tab Order... 
Fe Code 


jy Ruler 
Unbound 
Grid Urbowd 
ras Toolbox 
__. Page Le d 
fv Form Header Foster 
Toolbars 


In figura alăturată se observă uşor că nu este neapărat necesară 


prezenţa ferestrei de proprietăţi, vizualizarea codului putând fi efectuată fie 
prin alegerea opțiunii Code din meniul View, fie apăsarea pe butonul Code 
de pe bara de unelte Standard. 
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Fereastra care va apare pe ecranul calculatorului, în urmă executării 
oricăreia dintre cele 2 variante propuse anterior va conţine: 

O listă combinată de tip combo (expresia implicită “General”) care 
înglobează numele obiectelor definite în cadrul formularului curent, o listă 
combinată cu numele evenimentelor ataşate unuia dintre obiectele create în 
formularul curent sau numele procedurilor definite de utilizator şi un număr 
oarecare de zone albe, separate printr-o linie orizontală, pentru introducerea 
sau modificarea instrucţiunilor VBA ale unei proceduri. 


i: Form_Fârmi : Class Module 


{General} 4 iDecharations) 


Option Compare Database 

Option Explicit 

Public TipControl As Object Va fi folosită pentra c 
Public NumeControl As String ‘Pentru determinarea 
Public LocalitateN cua As String Petr stocarea tem 
Public Comuna As String 

Public CadLocalitate As String 

Public NumeJudetN ou As String ‘Pentru stocarea temp 
Pubhc PrescJudetN au As String ‘Pentru stocarea temp 
Public Formular As Form ` ‘Pentru determinarea 


Private Sub Form_LoadQ 


ListaJudete = 18 s : 
E Click SW List Box: ListaJudete E 


End Sub Event 
Private Sub Listaludete_ClickO Fores | Data | Other | All | 


NumeControl = ListaJudete. Name Before Update rarae 
After Update. ..... 
Ale IEN EE 
CNE d leans URI, ca 
On Got Focus. s. sia 
On Lost Focus. ,.., 
On Click, + ese... [Event Procedure} 
Or Dbl Click. 4. 
On Mouse Down... , 
On Mouse Move .... 
On Mouse Up , s.s, [Event Procedure] 
On key Down... 
Onkeylp., Ei 
On Key Press, cmi 


[Event Procedure] 
MinuForrmil 
tinuForm Right 
MnuFormtRight.Despre ... 
MnuFormi Right. Copiază 
tinuFormiRight.Lipeşte (Paste 
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Varianta recomandată pentru deschiderea paginii de cod VBA, direct 
la procedura unui anumit obiect este următoarea: 

Pasul 1: Deschideţi caseta de proprietăți a unui control la pagina “Event” — 
Evenimente 

Pasul 2: Selectaţi opţiunea “Event Procedure” în dreptul evenimentului 
necesar şi executați 

Pasul 3: Dati un click pe butonul marcat cu semnul “...” din partea dreaptă 
a evenimentului. 

În acest fel veţi deschide pagina de cod VBA la procedura şi 
evenimentul dorit şi tot ce vă mai rămâne de făcut este să modificaţi sau să 
introduceţi codul VBA ca pe un simplu text. Access 97 oferă 
programatorilor pe măsura introducerii codului o informare rapidă asupra 
sintaxei comenzilor folosite, prin afişarea unei etichete sub comanda 
introdusă. 

Private Sub Combo0_ChckQ Eticheta afişată nu intervine în acţiunea 
CInt | programatorului şi, în plus, dispare singură în 


CIntLExpression) As Integer 
u 


momentul încheierii introducerii de la tastatură 
a comenzii — deci nu încercați să apăsați Esc 
pentru a o elimina. 


4.4. Semnificația codului folosit în formularul creat 


Pentru a face pe deplin funcțional formularul creat trebuie să creați în 
cod VBA instrucțiunile necesare. Dacă este pentru prima dată când 
concepeti un program, vă va fi aproape imposibil să finalizati aplicația. De 
aceea vă oferim codul VBA, aşa cum ar trebui să apară în pagina de cod 
ataşată formularului dumneavoastră, pe care va trebui să-l introduceți de la 
tastatură ca pe un simplu text. 

Convenții: 

Textele scrise cu caractere înclinate şi precedate de semnul * sunt 
comentarii la instrucțiunile care urmează. 
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Instrucţiunile VBA sunt scrise cu caractere îngroşate doar în paginile 
explicative care urmează, în practică ele vor apare în pagina de cod cu litere 
normale. 

Liniile orizontale au fost folosite pentru marcarea terminării unei 
proceduri sau declaraţii. 

Numerele afişate în faţa liniilor de cod au fost folosite doar pentru 
marcarea începuturilor liniilor de rând — deoarece în anumite cazuri nu s-a 
reuşit crearea unor linii de cod de lungime egală cu a paginii noastre. 


1. Option Compare Database “comenzi obligatorii pentru începutul unei 

2. Option Explicit “pagini de cod 

3. Publice TipControl As Object 'Va fi folosită pentru determinarea tipului de 
control selectat de utilizator 

4. Public NumeControl As String  'Pentru determinarea controlului selectat de 
utilizator 

5. Public LocalitateNoua As String ‘Pentru stocarea temporară a numelui unei 
localități noi 


6. Public Comuna As String “Pentru stocarea temporară a numelui unei 
comune 

7. Public CodLocalitate As String ‘Pentru stocarea temporară a codului 
localităţii 


8. Public NumeJudetNou As String ‘Pentru stocarea temporară a numelui unui 
judeţ nou creat 

9. Public PrescJudetNou As String ‘Pentru stocarea temporară a prescurtării 
unui judeţ nou creat 


10. Public Formular As Form 'Pentru determinarea formularului curent. 

11. Public TipSortare As String ‘Pentru determinarea tipului de sortare. 

12. Public x As Integer Variabilă temporară vizibilă în toate 
procedurile. 


13. Private Sub BtnTipareste_Click() ‘Declar procedura ale cărei linii de cod 
vor fi lansate în execuţie la executarea unui 
click pe controlul cu numele BinTipareste. 

14. Dim Raspuns, Text “Declar două variabile valabile doar in 


procedura curentă. 
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15. 


16. 


17. 


18. 


19. 


20. 


SA, 


22. 
23, 


24. 
25, 
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Text = "1. La imprimantă." & Chr(13) ‘Atribui expresia dintre ghilimele 
variabilei Text şi îi ataşez un sfârşit de linie. 

Text = Text & "2. Transfer în Word." & Chr(13) “Adaug o altă expresie 
variabilei Text. 

Text = Text & "3. Transfer în Excel." ‘Dacă după această nouă atribuire se 
“va încerca afişarea variabilei Text aceasta va 
arăta astfel: 


L. La imprimantă. 
2. Transfer in Word. 
3. Transfer în Excel. 


Raspuns = InputBox( Text, "Alegeţi numărul optiunii...", 1) ‘Atribui valoarea 
‘care va fi-introdusă de utilizator în câmpul 
de editare al casetei cu titlul Alegeţi ‘numărul 
opțiunii ... şi mesajul explicativ dat de 
conținutul variabilei Text, variabilei “Raspuns 

Select Case Raspuns ‘Deschid un ciclu de selecţie bazat pe 
valoarea ‘variabilei Raspuns 

Case 1 “Dacă var. Raspuns are valoare I(s-a ales 
opțiunea La ‘imprimantd) atunci: 

DoCmd.PrintOut acPrintAll, , , acDraft, 1 ‘Va fi transferat la imprimantă tot 
“conţinutul fişierului sursă al formularului 
curent. 

Case 2 “Dacă var. Raspuns are valoarea 2 atunci: 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeLotusWK3, 
"tblJudete", "CAMy Documents\Judete.wk3" 
“Conţinutul fişierului tblJudete va fi exportat 
în “fişierul Judete.wk3 din folderul My 
Documents. 

Case 3 Dacă var. Raspuns are valoarea 3 atunci: 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, 
"tblLocalitati", "CAMy Documents! 
Localitati.xls" ‘Conținutul fişierului 
tblLocalitati va fi “exportat într-un fişier Excel 
97 cu numele Localitati. vie, în folderul My 


Documents 
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26. 


ZJ: 


28. 


29. 
30. 


31. 
32. 
33. 
34. 
35. 
36. 
EA 


38. 


39. 


40. 


4l. 


42. 


Case Else ‘Dacă var. Raspuns are o valoare diferită de 
1] sau 2 sau 3 ‘atunci: 
MsgBox "Trebuie să alegeţi o opțiune de transfer!" ‘Va fi afişată o casetă de 


‘avertizare cu mesajul specificat. 


End Select ‘Inchei ciclul de selecție. 
End Sub “Închei execuţia procedurii. 
Private Sub CboTipsortare_Click() Declar o nouă procedură ale cărei 


“instrucțiuni vor fi executate în momentul 
executării unui click pe controlul 
‘CboTipSortare. 

Select Case CboTipsortare ‘Deschid un ciclu de selecție a valorii 
controlului “CboTipSortare. 

Case CboTipsortare = "Ascendent" ‘Dacă acesta are valoarea Ascendent 


atunci: 

TipSortare = "ASC" “Variabila publică TipSortare primeşte 
valoarea ASC. 

Case CboTipsortare = "Descendent" ‘Jar dacă are valoarea Descendent 
atunci: 

TipSortare = "DESC" “Var. TipSortare primeşte valoarea DESC. 

End Select ‘Inchei ciclul de selecţie. 

End Sub “Închei execuţia procedurii. 

Private Sub Form_Load() Procedură care va fi executată . la 
deschiderea ‘formularului. 

ListaJudete = 18 “Controlul ListaJudete primeşte valoarea 18, 
care corespunde în ‘baza noastră de date 
județului Dolj 

ListaJudete_ Click ‘Se forțează lansarea în execuţie a procedurii 
cu numele ‘ListaJudete_Click- 

End Sub “inchei execuţia procedurii. 

Private Sub ListaJudete_Click() “La executarea unui click pe controlul 


‘ListaJudete. 


130 INIȚIERE ÎN ACCESS 


43. NumeControl = ListaJudete. Name “variabila NumeControl preia numele 
“controlului ListaJudete 
44. ListaJudete.StatusBarText = "Judeţul" & Format(ListaJudete.Column(2), ">") 
‘Pe bara de status a formularului se afişează 
expresia Judetul şi numele judeţului “selectat 
scris cu majuscule. Controlul ListaJudete are 
3 coloane, însă în Access 97 ‘numerotarea 
coloanelor începe de la 0, astfel că 
proprietatea  Column(2) înseamnă de ‘fapt 
coloana a 3-a a controlului. 
45. ListaLocalitati.RowSource = "SELECT DISTINCTROW 
tblLocalitati.IdLocal” _ 
& “itate, tblLocalitati.Localitate, tblLocalitati.Comuna, tblLocalitati.CodLoc” _ 
& “alitate, tblLocalitati.IdJudet FROM tblLocalitati WHERE” _ 
& © (((tblLocalitati-IdJudet)=[Forms]![Form1]![ListaJudete]));" 
“Definesc sursa înregistrărilor controlului 
ListaLocalitati şi pun condiția selectării doar 
a “acelor localităţi din tabelul tblLocalitati al 
căror cod de identificare al județului are 
“valoarea egală cu valoarea controlului 
ListaJudete din formularul Form]. După cum 
se 'observă linia 45 este compusă de fapt din 
patru linii de rând, care deşi au fost încheiate 
cu ‘Enter sunt interpretate de Access 97 ca 
fiind una singură. Acest lucru este posibil in 


DI 


‘Access ‘97 datorită prezenţei combinației 


e 


la sfârşitul rândului şi prezenţei & la 
“începutul ‘următorului rând. Metoda este 
deosebit de utilă atunci când se lucrează pe 
un ‘monitor cu o rezoluție foarte mică.. 


46. End Sub ‘Inchei execuția procedurii. 
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47. Private Sub ListaLocalitati_Click() “La executarea unui click pe 
controlul ‘ListaLocalitati. 
48. NumeControl = ListaLocalitati.Name “variabila  NumeControl preia 
numele “controlului ListaJudete 
49. If ListaLocalitati.Column(2) = "" Then “Dacă numele localităţii (preluat 
din coloana ʻa 3-a a controlului 
ListaLocalitati este nul — nu a fost selectat 
nimic — atunci: 
50. ListaLocalitati.StatusBarText = "Localitatea "` 
& Format(ListaLocalitati.Column(1), ">")&" " & "Cod Postal " _ 
& Format(ListaLocalitati.Column(3), ">")&" " & "Judeţul " ` 
& Format(ListaJudete.Column(2), ">") 
“Pe bara de status a formularului curent va fi 
afişată expresia Localitatea căreia îi vor ‘fi 
ataşate: ‘numele localităţii cu majuscule şi 
expresia Cod Postal 
“codul Postal cu majuscule şi expresia Judeţul 
“numele judeţului cu majuscule 
51. Else “În caz contrar (a fost selectat un nume din 
listă) 
52. ListaLocalitati.StatusBarText = "Localitatea "7 
& Format(ListaLocalitati.Column(1), ">")&" " _ 
& "Comuna " & Format(ListaLocalitati.Column(2), ">") &" " & _ 
&"Cod Postal " & Format(ListaLocalitati.Column(3), ">")&" " & _ 
& "Judeţul " & Format(ListaJudete.Column(2), ">") 
‘Pe bara de status a formularului curent va fi 
afişată expresia Localitatea căreia ii ‘vor fi 
ataşate: 
‘numele localității cu majuscule 
“expresia Comuna şi numele comunei cu 
majuscule 
expresia Cod Poştal şi codul poştal cu 
majuscule 
“expresia Judeţul şi numele județului cu 
majuscule 
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53. End If ‘Inchei ciclul de analiză 

54. End Sub “Închei execuţia procedurii. 

55. Private Sub ListaLocalitati_DbiClick(Cancel As Integer) ‘La execuția unui 
dublu “click pe controlul ListaLocalitati: 

56. If ListaSelectii.ListCount = 0 Then ‘Dacă în controlul ListaSelectii nu se află 
nici “un element, atunci: 

57. ListaSelectii.Row Source = ListaLocalitati.Column(1) ‘Sursa 
înregistrărilor ‘controlului ListaSelectii este 
formată dintr-un singur element identic cu 
expresia ‘valoarea de pe coloana a 2-a a 
controlului ListaLocalitati. 


58. Else ‘În caz contrar(dacă în ListaSelectii există cel 
putin un element) atunci: 

59. ListaSelectii.RowSource = ListaSelectiiRowSource & "" & 
ListaLocalitati.Column(1) 

60. End If “inchei ciclul de analiză. 

61. End Sub ‘Inchei execuţia procedurii. 


62. Private Sub ListaSelectii_Click() “Dacă se execută un click pe controlul 
‘ListaSelectii 

63. NumeControl = ListaSelectii.Name ‘Var.  NumeControl preia numele 
controlului ‘ListaSelectii 

64. x = ListaSelectii.ListCount “Var. x devine egală cu numărul de elemente 
afişate în “controlul ListaSelectii. 

65. End Sub ‘Inchei execuţia procedurii. 

66. Private Sub BtnAdauga_Click() ‘La executarea unui click pe butonul cu 
“numele BtnAdauga. 

67. Adaug ‘Fortez executarea procedurii Adaug 

68. End Sub ‘Inchei execuţia procedurii. 

69. Private Sub BinSterge_Click() ‘La executarea unui click pe butonul cu 
“numele BtnSterge . 

70. Sterg “Forţez executarea procedurii Sterg. 

71. End Sub ‘Inchei execuţia procedurii. 

72. Private Sub BtnSorteaza_ClickQ) “La executarea unui click pe butonul 
“BinSorteaza. 

73. Dim n, m As Integer “Definesc variabilele n şi m de tip Integer 
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74. Dim Temp As String ‘Definesc variabila Temp de tip şir. 

75. ReDim Var(x) ‘Redefinesc şirul de lungime x 

76. Select Case NumeControl deschid un ciclu de selecție bazat pe 
valoarea “variabilei NumeControl 

77. Case "ListaJudete" ‘Daca var. NumeJudete = ListaJudete 
(expresie!) atunci: 

78. If CboTipsortare = "Ascendent" Then ‘Daca controlul CboTipSortare 


are valoarea ‘Ascendent, atunci: 

79. ListaJudete.RowSource = "SELECT DISTINCTROW tblJudete.IdJudet, 
tblJudet" _ 

& "e.Prescurtare, tblJudete.NumeJudet FROM tblJudete ORDER BY tbliJudet" _ 

& “e.NumeJudet ASC;" 
‘Sursa înregistrărilor controlului ListaJudete 
va fi refăcută din înregistrările tabelului 
“blJudet ordonate alfabetic. 

80. Else “Dacă însă NumeJudete are altă valoare de 
cât Ascendent atunci: 

81. ListaJudete.RowSource = "SELECT DISTINCTROW tbljudete.IdJudet, 
tblJudet" _ 

& "e.Prescurtare, tblJudete.NumeJudet FROM tblJudete ORDER BY tbiJudet" _ 

& "e.NumeJudet DESC;" 

“Sursa înregistrărilor controlului ListaJudete va fi refăcută din înregistrările 
tabelului ‘tblJudet ordonate invers alfabetic. 


82. End If “Închei analiza controlului NumeJudete. 

83. Case "ListaLocalitati" “Dacă NumeControl are valoarea 
ListaLocalitati: 

84. If CboTipsortare = "Ascendent" Then ‘si dacă tipul de sortare = 


Ascendent atunci: 

ListaLocalitati.Row Source = "SELECT DISTINCTROW tblLocalit” _ 

& “ati-IdLocalitate, tblLocalitati.Localitate, tblLocalitati. Comuna, tblLocal” _ 

& “itati.CodLocalitate, tblLocalitati.IdJudet FROM tblLocalitati “ _ 

& “WHERE (((tblLocalitati.IdJudet)=" & ListaJudete & "))" _ 

& " ORDER BY tblLocalitati-Localitate ASC;" 
“Sursa înregistrărilor controlului 
ListaLocalitati va fi refăcută din înregistrările 
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‘tabelului tblLocalitati ai căror identificatori 
de județ sunt egali cu valoarea implicită 
“(Coloana 0) a elementului selectat în 
controlul ListaJudete .ordonate crescător. 

85. Else “În caz contrar: 

ListaLocalitati.Row Source = "SELECT DISTINCTROW tblLocalit” _ 

& “ati.IdLocalitate, tblLocalitati. Localitate, tblLocalitati. Comuna, tblLocal” _ 

& “itati.CodLocalitate, tblLocalitati.ldJudet FROM tblLocalitati “ _ 

& “WHERE (((tblLocalitati.ldJudet)=" & ListaJudete & "))" _ 

& " ORDER BY tblLocalitati.Localitate DESC; 
‘Sursa înregistrărilor controlului 
ListaLocalitati va fi refăcută din înregistrările 
‘tabelului tblLocalitati ai căror identificatori 
de judet sunt egali cu valoarea implicită 
“(Coloana 0) a elementului selectat în 
controlul ListaJudete .ordonate descrescător. 

86. End If 

87. Case "ListaSelectii” “Dacă var. NumeControl are valoarea 
ListaSelectii atunci: | 

88. If CboTipsortare = "Ascendent" Then ‘Dacă tipul de sortare a fost 
stabilit la “valoarea Ascendent atunci: 

89. For n = 0 To ListaSelectii.ListCount - 1 

90. Var(n) = ListaSelectii.ItemData(n) ‘Elementul n al şirului Var(n) preia 
valoarea “elementului n din lista ListaSelectii. 

91. Nextn 

92. For n = 0 To ListaSelectii.ListCount - | 

93. For m= 1 +n To ListaSelectii.ListCount - | 


94. If Var(n) > Var(m) Then “Dacă elementul n este mai mare decât 
elementul m 

95. Temp = Var(n) ‘Var. Temp preia valoarea elem. n 

96. Var(n) = Var(m) “Elementul n preia valoarea elementului m 

97. Var(m) = Temp “Elementul m preia valoarea variabilei Temp. 

98. End If 

99. Next m ‘Se reia ciclul de transferuri şi verificări 


pentru următoare valoare a lui ‘m 
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100. 


101. 


102. 
103. 
104. 


105. 
106. 


107. 


108. 


109. 
110. 


11}. 
112. 
LS 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 


122, 


Next n Se reia ciclul de transferuri şi verificări 
pentru următoarea valoare a lui 'n. 

ListaSelectii.RowSource = "" Anulez sursa înregistrărilor controlului 
ListaSelectii. 

Temp ="" “Anulez valoarea var. Temp. 


Forn=0Tom-l 
Temp = Temp & Var(n) & ";" ‘fn variabil Temp se încarcă toate valorile 
elementelor ‘sirului Var(n) separate prin 


semnul ; 
Next n “Încarc următoare valoare a lui n. 
Temp = Left(Temp, Len(Temp) - 1) ‘Extrag ultimul caracter (semnul 


;) din Temp 

ListaSelectii.RowSource = Temp ‘Dat fiind că sursa înregistrărilor 
controlului ‘ListaSelectii este compusă din 
valorile unor variabile transformate într-un 
şir de elemente separate prin semnul ; 
folosesc şirul Temp ca sursă a înregistrărilor. 

Else “Dacă s-a ales o sortare de tip 
descrescător atunci: 

For n = 0 To ListaSelectii.ListCount - 1 

Var(n) = ListaSelectii.ItemData(n) “Preiau valorile din controlul 
ListaSelectii în “şirul Var(n). 

Next n 

For n = 0 To ListaSelectii.ListCount - 1 

For m = 1 + n To ListaSelectii.ListCount - 1 


It Var(n) < Var(m) Then 

Temp = Var(n) ‘Sortez descrescător valorile şirului. 

Var(n) = Var(m) e 

Var(m) = Temp i 

End If 

Next m 

Next n 

ListaSelectii.RowSource ="" Anulez sursa înregistrărilor controlului 
ListaSelectii. 

Temp="" ‘Anulez valoarea var. Temp. 
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123. Forn=0Tom-! 
124. Temp = Temp & Var(n) & ";" ‘Construiesc şirul Temp din elementele şirului 


Var(n). 

125. Nextn 

126. Temp = Left(Temp, Len(Temp) - 1) ‘Extrag ultimul caracter (semnul 
5) 

127. ListaSelectii.RowSource = Temp 

128. End If 

129. End Select “Închei ciclul de analiză 

130. End Sub “Închei execuţia procedurii. 

131. Function Adaug() “Definesc funcţia Adaug 

132. Dim Selectie As String _ “Definesc variabila Selectie ` 

133. If NumeControl = "ListaJudete" Then ‘Dacă var. ‘NumeControl = 

ListaJudete: l 


134. NumeJudetNou = ïnputBox("Introduceți numele noului județ", "Judeţ 
nou!", "NUMELE JUDETULUI”) 

‘Var. NumeJudetNou preia valoarea introdusă de la tastatură de utilizator. 

135. PrescJudetNou = InputBox("Introduceti prescurtarea noului județ", "Judeţ 
nou!", "PRESCURTAREA JUDETULUI”) 
‘Var. PrescJudetNou preia valoarea 
introdusă de la tastatură de utilizator. 

136. PrescJudetNou = Format(PrescJudetNou, ">") ‘convertesc expresia din 
var. ‘PrescJudetNou în majuscule 


137. CapitalizareText (NumeJudetNou) ‘Initializez funcţia 
CapitalizareText cu ‘argumentul 
NumeJudetNou. 

138. DoCmd.RunSQL "INSERT INTO tblJudete (Prescurtare, NumeJudet) 
SELECT" 


& PrescJudetNou & " AS Expr1, " & Text & " AS Expr2;" 
‘Lansez o interogare de addugare in tabelul 
tblJudete a datelor preluate de la ‘tastatură. 
Astfel valoarea var. PrescJudetNou va fi 
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139. 


140. 


141. 


adăugată in câmpul Prescurtare, ‘iar 
valoarea var. Text (valoarea var. 
NumeJudetNou convertită în majuscule) o 
adaug “în câmpul NumeJudet. 

ElseIf NumeControl = "ListaSelectii" Then “Dacă NumeControl = 


ListaSelectii 
If ListaLocalitati. Value = "" Then “şi dacă nu este selectată nici o 
localitate 


MsgBox "Selectaţi o localitate!", vbExclamation, "Vă rugăm ..." 


‘Afisez o casetă de avertizare cu titlul Vă rugăm ... şi mesajul Selectaţi o localitate 


141. 
142. 


143. 


144. 


145. 


146. 
147. 
148. 


149. 


150. 


151. 


152. 
153. 


End ‘Intrerup fortat executia procedurii 

Else “Dacă însă a fost selectată o localitate in 
ListaLocalitati: 

If ListaSelectii-ListCount = 0 Then “Dacă ListaSelectii nu conţine 


nici un element 

Selectie = InputBox("Introduceti numele localitatii!", "Vă rugăm ...",,,,, 
ListaLocalitati.Column(1)) 
“Var. Selectie va prelua valoarea introdusă de 
utilizator de la tastatură. 


If IsNull(Selectie) Then “Dacă s-a preluat o valoare nulă (s-a apăsat 
pe Cancel sau nu s-a introdus nimic şi s-a 
apăsat pe OK) 

End ‘Fortez întreruperea execuţiei procedurii. 

Else ‘Dacă s-a preluat o valoare însă 

ListaSelectii.RowSource = Selectie “Sursa înregistrărilor controlului 
ListaSelectii se constituie din valoarea var. 
Selectie. 

End If 

Else “Dacă ListaSelectii conţine cel putin un 


element atunci: 
Selectie = InputBox("Introduceti numele localitatii!", "Vă rugăm ... " 
ListaLocalitati.Column(1)) 


H 


If IsNull(Selectie) Then 
End 
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154. Else 

155. ListaSelectii.RowSource = ListaSelectii.RowSource & ";" & Selectie 
Sursa “înregistrărilor controlului 
ListaSelectii se constituie din valoarea 
vechilor înregistrări ‘la care se adaugă 
valoarea var. Selectie separată de cele vechi 
cu ajutorul semnului ; 

156. End If 

157. End If 

158. End If 

159. ElseIf NumeControl = "ListaLocalitati" Then 

160. End If 

161. LocalitateNoua = InputBox("Introduceti numele noii localitati!", "Localitate 

i Nouă!", "NUME LOCALITATE”) 

162. Capitalizare Text (LocalitateNoua) 

163. Comuna = InputBox("Introduceti numele comunei de care aparţine 
localitatea ” _ 

164. & Text & "1", "Comuna ...", "COMUNA") 

165. CodLocalitate = InputBox("Introduceti codul poştal al localităţii ” & Text 

- & "!", "Cod Postal...", "COD POSTAL") 

166. If LocalitateNoua = "" Then 

167. MsgBox "Nu ati specificat numele localităţii! Reluaţi operatiunea!", 
vbCritical, "Eroare!" 

168. End If 

169. If Comuna = "" Then 

170. MsgBox "Nu ați specificat numele comunei! Reluati operațiunea!", 
vbInformation, "Eroare!" 

171. EndIf 

172. If codpostal = "" Then 

173. MsgBox "Nu ați specificat codul postal al localității! Atribuim valoarea 1.", 
vbQuestion, "Eroare!" 

174. EndIf 

175. 'INSERT INTO tblJudete (Prescurtare, NumeJudet) SELECT [nnn] AS 
Exprl, [mmm] AS Expr2 FROM tblJudete; 

176. End Function ‘Inchei execuţia funcţiei curente. 
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177. 
178. 
179. 
180. 


181. 
182. 
183. 


184. 


185. 


186. 


187. 
188. 
189. 
190. 
191. 
192. 


Function Sterg() 

Dim Selectie As String, SursaNoua, Item 

If NumeControl = "ListaJudete" Then 

MsgBox "Nu este permisă ştergerea numelui judetului!", vbCritical, 
"Operatie interzisă!" 

End 

ElseIf NumeControl = "ListaSelectii" Then 

Selectie = ListaSelectii.ListIndex ‘Var. Selectie devine egală cu numărul 
elementului selectat în controlul ListaSelectii. 

For Item = 0 To ListaSelectii.ListCount ‘De la 0 la numărul de elemente 
al controlului ‘ListaSelectii. 

If ListaSelectii.ItemData(Item) <> ListaSelectii. Value Then “Dacă 
valoarea elementului n din ListaSelectii este 
diferită de valoarea elementului selectat din 
ListaSelectii atunci: 

SursaNoua = SursaNoua & ListaSelectii.ItemData(Item) & ";" ‘La 
valoarea var. ‘SursaNoua adaug elementul n 
al controlului ListaSelectii si semnul 5 

End If 

Next Item 

ListaSelectii.RowSource = 

ListaSelectii.RowSource = SursaNoua 

ElseIf NumeControl = "ListaLocalitati" Then 

DoCmd.RunSQL "DELETE  tblLocalitati.*, tblLocalitati.ldLocalitate 
FROM “ ` 


we 


& “ tblLocalitati WHERE (({tblLocalitati]![IdLocalitate]="__ 
& ListaLocalitati.Column(O) & "));" 


193. 
194. 
195. 


‘Lansez o interogare de ştergere a câmpurilor 
din tabelul tblLocalitati al căror “identificator 
este egal cu valoarea de pe prima coloană a 
elementului selectat în “controlul 
ListaLocalitati. 

ListaLocalitati.Requery 

End If 

End Function 


140 


INIȚIERE ÎN ACCESS 


196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 


Function CapitalizareText(Text As String) 

Dim n As Integer 

For n = 1 To Len(NumeJudetNou) 

If n= 1 Then 

Text = Format(Left(NumeJudetNou, 1), ">") 

Else 

Text = Text & Format(Mid(NumeJudetNou, n, 1), "<") 
End If 

Next n 

End Function 
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Prezentarea şi prelucrarea datelor .cu ajutorul formularelor este extrem 
de utilă în activitatea practică, însă pentru crearea unei aplicații complexe, 
care să satisfacă pe deplin cerințele utilizatorilor, este important să permiteti 
şi tipărirea datelor într-o formă elegantă. Pentru aceasta este necesară 
înțelegerea modului în care funcționează rapoartele Access 97. 


5.1. Crearea rapoartelor 


Cea mai simplă cale petru crearea unui raport este folosirea unuia din 
asistenții Wizard (Report Wizard) pentru crearea rapoartelor. Dacă fereastra 
Database este vizibilă în fereastra aplicaţiei Access 97 executaţi un click pe 
eticheta Reports astfel încât această să apară în prim plan aşa cum se 
observă în figura următoare: 


sc 


Brësaruw 


Desky; 
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Dacă în baza dumneavoastră de date nu ati creat anterior nici un 
raport, butoanele Preview şi Design vor fi dezactivate. Apăsaţi pe butonul 
New pentru a lansa în execuţie asistentul Wizard pentru crearea rapoartelor. 


5.1.1. Modul Design View 


Este modul în care utilizatorului îi revine sarcina realizării integrale a 
unui raport. Chiar dacă acest modalitate de creare nu implică acţiunea 
asistentilor Wizard, aceasta este modalitatea care oferă cele mai multe 
posibilităţi programatorului — deşi solicită un volum mare de cunoştinţe din 
partea acestuia. 

Dacă în figura anterioară ati apăsat pe butonul New, în ecranul 
următor va trebui să precizati modalitatea de crearea a noului raport, sursa 


înregistrărilor acestuia şi tipul raportului. 


New Report 


“Create ege without 
“using a wizard, 


E vil Are a | 


KS 


Ee the'table or query KS, 
` the p chert data comes from: ` 


Pasul 1: Executati un click pe optiunea Design View. 

Pasul 2: Deschideti lista combinata care contine lista tabelelor si 
interogărilor bazei de date şi alegeţi tabelul sau interogarea care va 
furniza datele necesare raportului dumneavoastră. Alegeţi ca sursă 
a înregistrărilor tabelul tblJudete. 

Pasul 3: Executati un click pe butonul OK pentru a putea trece la pasul 
următor. 
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Acest mod de creare a unui raport, la fel ca şi modul Report Wizard, 
nu impune obligativitatea declarării unei surse a înregistrărilor, deoarece 
veți avea ulterior posibilitatea să declarați sau să creați o nouă sursă de 
înregistrări pentru raportul dumneavoastră. 


Report) : Report _ 


Odată cu apariţia imaginii de mai sus pe ecranul calculatorului 
dumneavoastra, actiunea asistentului Wizard pentru crearea rapoartelor ia 
sfârşit, programatorul trebuind să decidă singur asupra datelor şi formei 
datelor care vor apare în raport. Întrucât completarea datelor acestui raport 
este o operațiune complexă ea va fi dezvoltată în capitolul 5.2.5. Inchideti 
raportul executând un click pe butonul Close — aşa cum se observă în figură. 

Acceptati salvarea raportului creat, chiar dacă deocamdată, acesta nu 
conţine nimic şi apăsaţi pe butonul Yes. Denumiti acest raport RpJudeteDV 
şi apăsaţi pe butonul OK pentru finalizarea operaţiunii de creare a 
raportului. 


` Report Names CH = EE 
4 [RpJudeteDy j — [i 
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5.1.2. Modul Report Wizard 


Reprezintă modalitatea cea mai spectaculoasă de creare a unui raport 
cu ajutorul unui asistent Wizard. Dacă ati realizat paşii impuşi în fig. | din 
acest capitol , executaţi un click pe opţiunea Report Wizard, aşa cum se 
obesrva în fig. 5-1-2-1. La fel ca şi în cazul modului Design View, nu este 
obligatorie, în această fază precizarea tabelului care constituie sursa 
înregistrărilor raportului dumneavoastră, deoarece o veţi putea stabili în 
ecranul următor după apăsarea pe butonul OK. 


New Report 


AutoReport: Columnar +$ 
AutoReport: Tabular 


` A Chart Wizard 
This wizard automatically à Label wizard 
creates your report, based 


“| on the fields you select. 


É 


e e M an, an 


e, thee Ta 
„the object’s data comes from: — 
Pl) VC E bg Reems 


În fig. 5-1-2-2 va trebui să precizati: 

1. În caseta Table/Queries: numele tabelului care conţine înregistrările 
necesare raportului dumneavoastră. (Alegeţi tabelul tblLocalitati) 

2. În lista Selected Fields numele câmpurilor din tabelul sursă care 
vor apare în raportul dumneavoastră. Pentru introducerea unui câmp în lista 
Selected Fields, selectaţi-l în lista Available Fields, şi executați un dublu 
click pe acesta sau un click pe butonul marcat cu semnul >. 

Dacă raportul dumneavoastră trebuie să conţină date şi din alte tabele 
sau interogări ale bazei de date reluati paşii | şi 2, pornind de la un alt tabel 
sau interogare sursă (În exemplul nostru au mai fost preluate câmpurile 
Prescurtare şi NumeJudet din tabelul tblJudet). Atenţie: în cazul folosirii 
mai multor tabele sau interogări sursă pentru crearea unui raport sau 
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formular, este obligatoriu ca între tabelele sau interogările folosite să fie 
definită o relaţie. 


Which fields da you want Op pów report? 
“ou can choose from more than one table or quety. 


| 
Tables/Queties: 
[Tatle: tblLocalitati e 
„ Available Fields: : Selected Fields: 
4 IdL.ocalitate Prescurtare 


A Nuraludet 
“Localitate 
Comuna 


Fig. 5-1-2-2 


Report Wizard 


< How do you want to view your 
data? 


Rais te reas 
by tblLocalitat 


al Show me more information 


Fig. 5-1-2-3 
Cancel t Back Nest > ~ Finish | 
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În fig. 5-1-2-3 va trebui să stabiliți modul în care va fi realizată 
sortarea datelor din tabelele sursă în cadrul raportului dumneavoastră. Astfel 
dacă veţi executa un click pe opţiunea “by tblLocalitati” raportul va 
prezenta datele în ordinea în care acestea au fost introduse în tabelul 
tblLocalitati, iar dacă veţi executa un click pe opţiunea “by tblJudete” datele 
din tabelul tblLocalitati vor fi prezentate în ordinea cronologică a 
introducerii, sortate pe judeţe (la fel în ordinea cronologică a introducerii). 
Sortarea datelor în cadrul raportului este redată destul de sugestiv în caseta 
de previzualizare din partea dreaptă. 

Gruparea datelor în cadrul raportului va fi realizată în fereastra 
următoare, aşa cum este prezentată în fig. 5-1-2-4. Pentru stabilirea nivelelor 
de grupare, selectaţi din lista cu numele câmpurilor disponibile câmpul după 
care va fi realizată gruparea şi transferaţi-l în partea dreaptă (caseta de 
previzualizare) prin executarea unui click pe butonul marcat cu semnul >. 


i levels? 


"Localitate 


Localitate, CodLocalitate 
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În caseta de previzualizare nivelele de grupare vor fi marcate cu 
culoarea albastră iar informaţiile grupate în acestea cu culoarea neagră. În 
exemplul nostru localităţile înregistrate şi codul poştal al acestora vor fi 
grupate după comunele de care aparţin, iar acestea la rândul lor sunt grupate 
după judeţele din care fac parte. 

Gruparea datelor poate fi realizată după inițialele acestora (1 până la 5 
litere) sau după numele întreg (varianta “Normal”). Stabilirea unei anumite 
variante de grupare (alta decât cea obişnuită —“normal”) poate fi realizată 
prin apăsarea pe butonul Grouping Options. 

Sortarea datelor din secţiunea “Detaliu” — datele din ultimul nivel de 
grupare stabilit — trebuie precizată, deoarece implicit asistentul Wizard 
consideră că datele raportului trebuiesc prezentate în ordinea cronologică a 
introducerii acestora, însă nu poate fi realizată decât pentru cel mult 4 
câmpuri, aşa cum se observă din fig. 5-1-2-5. Alegerea unui câmp oarecare 
din lista câmpurilor disponibile presupune implicit sortarea ascendentă a 
datelor. Pentru o sortare descendentă, după alegerea câmpului în casetele de 
sortare, executaţi un click pe butonul de sortare din partea éi a casetei 

Report Wizard A e AE ji iik. WEE 


gei EE in either 
ascending or descending order. 


SR ebe i 


ln 


Bo 


BZ 
287 
ca 
EZ 
a 


E 


Mep 
B 
f 


Fa 
St 


Fig, 5-1-2-5 
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În fig.5-1-2-6 trebuiesc precizate: 

1. Tipul dispunerii datelor în cadrul raportului ce va fi tipărit — 
caseta Layout. 

2. Modalitatea transpunerii raportului în pagină — caseta Orientation 
(Portrait — scriere normală, Landscape — pe lățime). 

3. Dacă se doreşte trunchierea datelor astfel încât toate câmpurile 
selectate să fie prezente în cadrul raportului — caseta de validare “Adjust ”. 


„How would you'tke te lay out your report? d 


M Layout -o Ofientation j 
| © Stepped E potat `, 
me LÉ Block C Landscape 
EKERREK KC alin E i 
XI | C Qutline 1 i 7 A 
"wem pm mm ae aN | & 
: | e S JL 
Senn WR 
HARRA KKKKK NN “9 Align Left 2 


ş AER KERKE VNuNN ` Reg E 
P H KKK on 
Wey RENNE VON 
KKKKK WANN VR 


E Adiust the field width so d fields 
fit on a page. 


Trunchierea datelor poate avea ca efect “ascunderea” la tipărire a unei 
anumite parti a datelor înregistrate în câmpurile selectate, iar ne-trunchierea 
acestora poate avea ca efect “ascunderea” completă a câmpurilor în situația 
în care lungimea totală a acestora depăşeşte lungimea paginii. Indiferent de 
opțiunea dumneavoastră datele nu vor fi eliminate din cadrul raportului, ci 
doar ascunse în anumite situaţii. Problema poate fi rezolvată ulterior foarte 
uşor prin deschiderea raportului în modul Design View şi redimensionarea 
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manuală a mărimii câmpurilor afectate de una din situațiile prezentate mai 
sus. 

Stabilirea mărimii şi tipului caracterelor utilizate poate fi rezolvată 
într-o manieră destul de elegantă în ecranul prezentat în fig.5-1-2-7. Access 
97 vă pune la dispoziţie câteva scheme preconfigurate pentru realizarea unui 
aspect grafic elegant al rapoartelor întocmite, pe care le veți putea modifica 
ulterior în modul Design View, în cazul în care nu îndeplinesc cerinţele 
dumneavoastră. 


Report Wizard 


Label from Detail 
Control from Detail 


Fig. 5-1 -2-7 


Executarea unui click pe numele uneia din schemele preconfigurate, 
prezentate în lista din partea dreaptă a ecranului, va avea ca efect 
modificarea aspectului casetei de previzualizare din partea stângă şi 
prezentarea caracteristicilor de formatare pentru principalele elemente ale 
unui formular: Titlu, etichete explicative, elemente de detaliu. 

Trecerea la ecranul următor (fig. 5-1-2-8) marchează sfârşitul 
intervenţiei asistentului Wizard pentru crearea rapoartelor. 
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Titlul raportului, aşa cum va apare la tipărire, pe care trebuie să-l 
introduceţi în câmpul “What title... “ va fi preluat şi folosit în acelaşi timp 
şi ca nume pentru raportul dumneavoastră, ceea ce poate constitui o 
problemă a asistentului Wizard, dar care poate fi corectată utlerior prin 


schimbarea denumirii raportului. 


-What title do you want for your report? 


: i [Lista Localitati ÎN 


„Ai 


That's all the information the wizard needs to create your 


| 
i report. 
ž Do you want to preview the report or modify the report's 

design? 

| _ © Preview the report, 

| | © Modify the aS design. 

E Ee ` d | F Display Help on working with the report? 
fig 5.1 1-2-8 TE 
Oa Pe oo eS A Sie Ke: ZE See Oh ët 


Dacă ati completat titlul raportului va trebui să mai precizati ultima 
operațiune care doriți să fie executată înaintea stopării intervenției 
asistentului: vizualizarea raportului (Preview the report) sau modificarea 
formei finale a raportului (Modify the report" s design). 

Optati, pentru continuarea exemplului nostru, pentru vizualizarea 
raportului şi apăsaţi pe butonul Finish. 

Forma finală a raportului, aşa cum va apare de acum înainte este pre- 
zentată în fig.5-1-2- 
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În situația în care această formă de prezentare a raportului nu 
îndeplineşte cerințele dumneavoastră, o puteți modifica apăsând pe butonul 
View de pe bara de unelte Print Preview. 


|| Eile Edit View Tools Window Help 
[Be ab! Og 


` lose sia D 7 


ER DI 75% 


E EC 


IS Lista Localitati 


Prescurtare AR 


Observând cu atenţie raportul creat veți sesiza faptul că în câmpul 
afectat numelui comunei (sub prescurtarea judeţului) nu apare scris nimic. 
Explicaţia rezultă din faptul că: 


> în tabelul tblLocalitati pe coloana Comuna în dreptul localităților 
respective nu a fost înregistrată nici o informaţie. 

> sortarea datelor a fost realizată în ordine alfabetică atât la nivelul 
localităţilor cât şi al comunelor iar în logica Access 97 lipsa unei valori 
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oarecare dintr-un câmp presupune totuşi existența unei valori în acel câmp — 
şi anume valoarea nulă (Null). 

> valoarea Null ocupă primul loc în cadrul unei liste de valori sortate 
ascendent. 


5.1.3. Modul AutoReport: Columnar 


Realizarea unui raport 


New Report 


fără prea mari pretenții 
în privința elementelor 


grafice şi prelucrării 
Te 


ahe 

“saute E a Ma „ | Columnar din fereastra 
$ ‘ee Faces data comes beg | New Report. 
Sec) Ad ad 


ee, ee, wee 


datelor poate fi 
realizată prin selectarea 
opțiunii AutoReport: 


Spre deosebire de variantele prezentate anterior, de această dată este 
obligatorie precizarea tabelului sursă. Dacă veţi alege ca în fig. 5-1-3-1 
tabelul tblLocalitati ca sursă a înregistrărilor, după apăsarea pe butonul OK 
acesta va arăta astfel: 


_thiLocalitati 


210 Hateg. 2650 22 


204 Nahoi 5194 n 
195 Golesti 5316 41 
196 Grimesti 5858 36 
197 rrari 10 
196 Orăricesrti 5865 36 
199 Ctrebinu 5267 1 
200 Musti 5315 41 
201 Gor Hmaumi 5900 36 
202 Gua Antei 217 17 
204 Gua Teghii 5196 11 


205 Hakhin 10 
207 Harehta Băi 


4 
190 Geoasin Fig. 5-1-3-2 2516 22 
200 EHârtop 5765 36 
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5.1.4. Modul AutoReport: Tabular 

Realizarea unui raport în care datele să fie dispuse sub forma unui 
tabel (nu sub forma unei coloane, ca în exemplul anterior) o puteţi realiza 
prin selectarea opțiunii AutoReport: Tabular. 


(e wizard 
Gees a tabular report, 


Label Wizard 


EE 
| Wim pb lect dif tenes froin: 


| Fig. 5-1-4-1 


Pentru a putea face comparatia între cele două tipuri de rapoarte 
alegeți din nou tabelul tblLocalitati ca sursă a înregistrărilor şi apăsaţi pe 
butonul OK. În fig.5-1-4-2 este prezentata forma sa creat. 


ia: tblLoralitati KE ites | 


Fig, 5-1-4-2 


8 pp Si 


1d Lo calitate 210 


Localitate Hateg, 


Comuna 
Cod Lo calitate 
Id.Hudetrt 2 


Id Lo calitate 2904 


Localitate m ehoiu 


Com una 


Cod Lo calitate 


5194 
ra ege 
sealei "SÄI. sd = j Wär Get 
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5.2. Modificarea rapoartelor 


Realizarea rapoartelor cu ajutorul asistentilor Wizard este, in general 
destul de comodă, însă nu rezolvă toate aspectele necesare utilizatorilor. De 
aceea se impune, ca după realizarea unui astfel de raport, să-l modificaţi 
astfel încât să răspundă pe deplin cerinţelor dumneavoastră. 


Dacă în capitolele anterioare ap salvat rapoartele create cu numele: 
RpJudeteDV cap. 5.1.1 

ListaLocalitati cap. 5.1.2 

RpLocalitatiColumnar cap. 5.1.3 

RpLocalitatiTabular cap. 5.1.4 

fereastra Database ar trebui să arate ca in fig. 5-2-1. 


Pentru modificarea raportului cu numele RpJudeteDV va trebui sa: 
Pasul 1: Efectuati un click pe numele sau. 
Pasul 2: Apăsaţi pe butonul Design din fereastra Database. 


Odată intraţi în interiorul ferestrei de proiectare va trebui să nu scăpaţi 
din vedere următoarele reguli care rezultă din schimbarea formei cursorului 
mouse-ului, în funcţie de evenimentele provocate de dumneavoastră: 
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1. Trasarea unui dreptunghi, prin “agăţare şi tragere”, pe suprafața de 
lucru a raportului (sau formularului) permite selectarea tuturor obiectelor 
incluse în interiorul dreptunghiului şi a obiectelor pe care marginea acestuia 
le intersectează. 

2. Permite redimensionarea orizontală (pe direcția E-W!) a obiectului 
selectat. 

3. Este permisă redimensionarea verticală (pe direcția N-S!) a 
obiectului sau obiectelor selectate. 

4. Este permisă redimensionarea pe diagonală (direcția SW-NE!) a 
obiectului selectat. 

5. Este permisă redimensionarea pe diagonală (direcția SE-NW!) a 
obiectului selectat. 

6. Este permisă deplasarea unui obiect sau unui grup de obiecte 
selectate. 

7. Este permisă deplasarea unui singur obiect din cadrul unui grup de 
obiecte legate. 

8. Este posibilă redimensionarea verticală a secţiunii unui raport (sau 
formular). 

9. Permite redimensionarea orizontală a secțiunii unui raport (sau 
formular). 


Redimensionările care sunt posibile astfel cu ajutorul mouse-ului pot 
fi realizate şi prin modificările valorilor proprietăților Width şi Height ale 
obiectelor selectate, iar deplasările obiectelor în alte poziţii în cadrul unei 
secţiuni a formularului pot fi realizate prin modificarea valorilor câmpurilor 
de proprietăți Left (distanța fata de marginea din stânga a secțiunii curente) 
şi Top (distanța față de marginea superioară a secțiunii curente). 
Modificarea valorilor acestor proprietăți deşi foarte exactă solicită însă un 
efort suplimentar de concentrare din partea programatorului, de aceea 
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recomandăm memorarea explicatiilor formelor cursorului mouse-ului şi 
lucrul cu acesta pentru redimensionarea şi mutarea obiectelor dintr-un 
formular sau raport. 


5.2.1. Sectiunile unui raport 

Raportul RpJudeteDV deschis în modul de lucru Design (proiectare) 
va arăta ca în figura 5-2-1-1. Analizând elementele acestuia veți sesiza uşor 
următoarele secţiuni: 


= RpJudeteDV Report BI 


— x 
D d A 


ES =LeffsqNumeJudef} 1) zN 


7 emm e iei 
E Detail. SS 


WE iINumeJudet 
— ee La SITE 


ae 


Hers & [Page] & eg Ge a 8 [Page: [Pages] 
nme e ` 


F geg Footer 


1. Secţiunea Page Header (antet de pagină) — cuprinde elementele (de 
regulă elemente grafice) care vor apare în antetul fiecărei pagini a raportului 


dumneavoastră. 
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2. Secţiunea Detail (detalii) — cuprinde informaţiile ce vor fi afişate în 
cadrul raportului. 

3. Secţiunea Page Footer (subsol de pagină) — cuprinde informaţiile ce 
vor fi afişate la sfârşitul fiecărei pagini a raportului (numărul paginii, data 
tipăririi, numele utilizatorului, etc.) 

Afişarea unui alt grup de secţiuni posibile în cadrul unui raport, 
antetul şi subsolul raportului (Report Header, Report Footer) este posibilă 
prin selectarea opțiunii corespunzătoare din meniul View al aplicaţiei 
Access 97. Informaţiile conţinute în aceste ultime secțiuni vor fi afişate o 
singură dată în cadrul formularului (la începutul — Report Header, sau la 
sfârşitul acestuia — Report Footer). 


5.2.2. Adăugarea controalelor 


De regulă asistenții Wizard ai aplicației Access 97 nu pot rezolva toate 
problemele solicitate de utilizator (afişarea tuturor câmpurilor necesare, 
poziţionarea acestora în diferitele secțiuni ale raportului, dimensionarea sau 
formatarea câmpurilor, etc). 

Adăugarea diferitelor controale necesare unui utilizator (câmpuri 
suplimentare, etichete explicative, imagini, casete sau liste combinate, etc.) 
va fi posibilă, în condiţiile prezenţei pe ecran a barei de unelte Toolbox, prin 
executarea unui click pe tipul controlului solicitat de pe bara de unelte 
menţionată, urmat de trasarea cu ajutorul mouse-ului a unui dreptunghi, într- 
una din secțiunile raportului, care va marca suprafaţa în care va fi încadrat 
acel control în raportul dumneavoastră. 

Dacă cele două operaţiuni menţionate în paragraful anterior vor fi 
efectuate atunci când butonul “Control Wizard” de pe bara de unelte 
Toolbox este “apăsat”, veţi beneficia de intervenţia automată a altor asistenți 
Wizard specializați în crearea controalelor. 

Adăugarea unui alt tabel care să constituie sursa înregistrărilor 
raportului (sau modificarea sursei înregistrărilor) poate fi realizată prin 
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executarea unui click (sau mai sigur a unui dublu click) în afara zonei 
ocupate de secțiunile raportului urmat de alegerea unui tabel (sau interogări) 
din caseta combinată “Record Source” a tabelului de proprietăți. 


5.2.3. Gruparea înregistrărilor 


Pentru a realiza gruparea datelor, în cadrul raportului, după diferite 
criterii definite de utilizator, deschideţi meniul View al aplicaţiei Access 97 
executaţi un click pe opțiunea “Sorting and Grouping” (dacă iconita din 
partea stângă a acesteia nu este deja “apăsată”) iar apoi în fereastra Sorting 
and Grouping alegeţi numele câmpului după care va realizată sortarea sau 
gruparea datelor şi tipul de sortare. 

Rolul câmpurilor ferestrei Sorting and Grouping este următorul: 

Group Header - determină gruparea datelor în cadrul formularului şi 
afişarea unei secțiuni de antet corespunzătoare în cadrul raportului.(valoarea 
Yes) 

Group Footer - afişarea secţiunii de subsol a grupării. 

Group On - stabileşte modul de grupare a datelor (Each Value — 
după fiecare valoare conținută de câmpul selectat, Prefix Character — după 
primele n caractere ale valorilor conţinute în acel câmp). | 

Group Interval - intervalul sau numărul caracterelor după care se face 
gruparea. 

Keep Togheter - valoarea Yes forțează păstrarea datelor care compun 
un grup de înregistrări pe aceeaşi pagină a raportului. 
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5.3. Temă 


Modificaţi raportul RpJudeteDv creat anterior astfel încât la final să 
arate ca în figura următoare: 


P  RpJudeteDV : Report 


EE op MOE se 


Gem Be a ES OOO E e e EE 
Nume Utilizator: Admin Fagira l dn 3  *. 
Data tipărite : 29 08.2001 19:01:21 


Elemente în sprijinul realizării temei: 
Titlul raportului a fost creat prin suprapunerea a două etichete cu 
acelaşi conţinut şi tip de formatare dar cu fonturi de culori diferite. 
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Câmpul situat sub titlul raportul în care este afişată ziua curentă a fost 
realizat prin introducerea următoarei formule în câmpul de proprietăți 
“Control Source”: 

=IIf(Weekday(Now(Q)=1;"Duminică";IIf(Weekday(Now(Q)=2;"Luni” 
IIf(Weekday(Now())=3;"Marţi";IIf(Weekday(Now(Q)=4;"'Miercuri";IIf( 
Weekday(Now())=5;"Joi";If(Weekday(Now())=6;"Vineri";"Sâmbătă”))))) 

Numărarea automată a înregistrărilor a fost realizată prin introducerea 
expresiei “=+1” în câmpul de proprietăţi Control Source şi stabilirea valorii 
“Over Group” pentru câmpul de proprietăți Running sum. 

` Numele utilizatorului care a facilitat tipărirea raportului a fost realizat 
prin introducerea formulei “=CurrentUser()” în câmpul de proprietăți 
Control Source. 

Numărul paginii curente şi numărul total de pagini ale raportului a fost 
realizat prin introducerea formulei: ="Pagina " & [Page] & "din "E 
[Pages] în câmpul de proprietăți Control Source. 


MACROCOMENZI 


Macrocomenzile reprezintă denumiri ale unei serii de acţiuni 
executate succesiv. Macrocomenzile pot funcţiona independent în cadrul 
bazei de date create sau pot fi ataşate unui control din cadrul formularului 
sau raportului creat, pentru a fi lansate la îndeplinirea unui anumit 
eveniment. În esență macrocomenzile sunt de fapt nişte proceduri publice 
predefinite. 


6.1. Crearea unei macrocomenzi. 


Pornind de la fereastra Database creată anterior, executați un click pe 
eticheta “Macros” urmat de un click pe butonul “New”. 

Dacă imaginea care va apare, în urma acestei acţiuni, nu va conține 
coloanele “Macro Name” şi “Condition”, executaţi câte un click pe 
butoanele “Macro Names” şi “Conditions” de pe bara de unelte, aşa cum se 
observă în figura anterioară. 

Rolul coloanelor: 

Macro Name — conţine numele comenzii definite pe această cale de 


utilizator. 

Condition — conţine elementele de condiționare a executării comenzii 
definite. 

Action — specifică acțiunea care va fi executată de comanda 
definită. 


Comment — conţine explicaţii la rolul îndeplinit de comanda definită. 
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„, Enter a macro name in 
this column. 


s 
F 


JcJ) lA m a! 


A Microsoft Access ad 


Completarea coloanelor macrocomenzii se face manual de către 


utilizator cu elementele necesare, cu excepția coloanei Action, a cărei 
completare presupune deschiderea casetei combinate şi alegerea uneia din 
comenzile preconfigurate puse la dispoziţie de aplicaţia Access 97. 


Principalele acţiuni şi rolul îndeplinit de acestea sunt redate în cele ce 


urmează: 
AddMenu 


Beep 

Cancel Event 
Close 

Copy Object 
Delete Object 
Echo 


FindRecord 


Adaugă un meniu în bara de meniu personalizată a 


unui formular sau raport. 

Emite un sunet de avertizare. 

Întrerupe un eveniment specific Access 97. 
Închide o fereastră specificată. 

Creează o copie a bazei de date. 

Şterge un obiect specificat sau selectat. 
Ascunde sau afişează rezultatul acţiunii 
macrocomenzi. 

Caută prima sau următoare înregistrare 
îndeplineşte o anumită condiţie. 


unei 


care 


MACROCOMENZI 


GoToRecord 
Hourglass 


Maximize 
Minimize 
MoveSize 
MsgBox 
OpenForm 


OpenQuery 
OpenReport 
OpenTable 
OutputTo 


PrintOut 
Quit 
Rename 
Requery 


RunApp 
RunCode 


RunCommand 


RunMacro 
RunSQL 
Save 
SendKeys 


TransferText 
text 
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Efectuează un salt necondiţionat la o anumită 
inregistrare. 

Schimbă forma implicită a cursorului într-una de 
forma unei clepsidre. 

Maximizează fereastra specificată sau implicită. 
Minimizează fereastra specificată sau implicită. 
Mută o fereatră. 

Determină apariţia unei casete de mesaj 

Deschide un formular într-unul din modurile 
specifice: Design View, Datasheet, Print Preview, 
Form View. 

Deschide sau lansează în execuţie o interogare. 
Deschide un raport. 

Deschide un tabel într-una din modalităţile posibile. 
Exportă datele într-unul din formatele posibile: RTF, 
txt, xls. 

Tipăreşte obiectul specificat. 

Închide aplicaţia Access 97. 

Redenumeşte obiectul specificat. 

Reactualizează o interogare sau un control definit de 
utilizator. 

Lansează în execuţia o aplicaţie externă. 

Lansează în execuţie o procedură VBA. 

Execută o comandă a unui meniu. 

Lansează în execuţie o macrocomandă. 

Execută o interogare. 

Salvează obiectul definit sau selectat. 

Simulează apăsarea anumitor taste în aplicația 
Access 97 sau în aplicaţia curentă. 

Realizează importul sau exportul unui fişier de tip 


Incercati în exemplul următor să realizaţi o macrocomandă care 


îndeplineşte o funcție specială: 
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Afiseraza mesajul ultimei erori netratate pentru programatori 
Inhiba tratamentul Help 


Inhiba afisarea ferestrei bazei de date 
Beep Inhiba selecteaza toate inreg 
Beep Inhiba imprima 
Beep Inhiba cauta 
Beep Inhiba baza de date noua 
Beep Inhiba deschide baza de date 
Beep Inhiba bascularea barei de meniu 
Beep. inhiba remplace 
RunCode initializeaza tabelele pentru versiunea demo. 
RunCode normalizare stocuri. =] 


Enter a macro name in this 
column 


Funcția Eroare care a fost introdusă în câmpul Function Name trebuie 
mai întâi definită ca fiind publică, într-un modul, pentru a putea fi folosită în 
cadrul acestei macrocomenzi. 

Pentru ca acest macro să fie pe deplin funcțional redăm în tabelul de 
mai jos lista câmpurilor şi valorile atribuite acestora: 


Coloana 
Câmpul Expresia introdusă 
Macro Name 


=Initializare Tabele) 
=ReglareStocur() 


Închideţi si salvaţi acest macro sub numele “Autoexec”. Folosirea 
acestui nume vă asigură de faptul că la următoarea deschidere a bazei de 
date în care a fost introdusă această macrocomandă, vor fi lansate în 
execuţie toate comenzile care o compun — cea ce în multe situații este 
extrem de necesar. 


Din cuprins: 
PREZENTAREA MENIURILOR 
-Notiuni generale 
- Lansarea în execuţie 
- Fereastra Database 

-Tabele (Table!) 


INTEROGAR! (QUERY 
- Notiuni generale 
- Tipuri de interogari 
- Crearea unei interogări 
- Conversia 'nterogărilor 


FORMULARE (FORMS) 
Notiuni generale 
- Tipuri de controale 
- Crearea unui formular 


CODULYVEA 
- Notiuni generale 
- Proceduri 
- Instrucţiuni în cod VBA 


- Adăugarea codului 
- Semnificaţia codului felosit in formularul creat 


RAPOARTE 
» Crearea rapoartelor 
- Nodificarea rapoartelor 


MACROCOMENZI 
- Crearea unei macrocomenz 


